In metaconfig.git, the branch master has been updated <http://perl5.git.perl.org/metaconfig.git/commitdiff/33487a210986aed17fe5018f9c4da49277965e42?hp=ce4587eeaa1c7853450796870dbcf81163f8a4fa>
- Log ----------------------------------------------------------------- commit 33487a210986aed17fe5018f9c4da49277965e42 Author: H.Merijn Brand - Tux <[email protected]> Date: Sun Nov 13 12:26:41 2016 +0100 Allow a pattern for diff matching ls-diff.pl => 161 files ls-diff.pl -p rm_try => 40 files ----------------------------------------------------------------------- Summary of changes: ls-diff.pl | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/ls-diff.pl b/ls-diff.pl index acc7b2b..33eca84 100755 --- a/ls-diff.pl +++ b/ls-diff.pl @@ -3,11 +3,11 @@ use 5.18.2; use warnings; -our $VERSION = "0.02"; +our $VERSION = "0.03"; sub usage { my $err = shift and select STDERR; - say "usage: $0 [--list] [--diff[=gd|dp|gp]]"; + say "usage: $0 [--list] [--diff[=gd|dp|gp]] [--pat=pattern]"; say " diff (size) between git / dist / perl"; say " where git (g) is the version from the git repo of meta/dist"; say " where dist (d) is the unmodified installed version from dist"; @@ -25,6 +25,8 @@ GetOptions ( "l|list!" => \my $opt_l, "d|diff=s" => \my $opt_d, "c|copy" => \my $opt_c, + + "p|pat=s" => \my $opt_p, ) or usage (1); my $pat = shift // "."; @@ -78,6 +80,12 @@ foreach my $u (sort { $m{$b}{gd} <=> $m{$a}{gd} || $m{$b}{dp} <=> $m{$a}{dp} } k #$gd == 0 || $gd > 1000 and next; + if ($opt_p) { + $d->{unit} =~ $opt_p || + $p->{unit} =~ $opt_p || + $g->{unit} =~ $opt_p or next; + } + printf "%3d %5d/%3d %6d %5d/%3d %6d %5d/%3d %6d %s\n", $i++, $g->{size}, $g->{lines}, $gd, $d->{size}, $d->{lines}, $dp, -- perl5 metaconfig repository
