This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
unused leftover
authorH.Merijn Brand - Tux <h.m.brand@xs4all.nl>
Fri, 22 Apr 2016 16:13:39 +0000 (18:13 +0200)
committerH.Merijn Brand - Tux <h.m.brand@xs4all.nl>
Fri, 22 Apr 2016 16:13:39 +0000 (18:13 +0200)
ls-diff.pl [changed mode: 0644->0755]

old mode 100644 (file)
new mode 100755 (executable)
index bd06847..8621bd4
@@ -70,9 +70,6 @@ foreach my $u (sort keys %m) {
     $opt_l and say "    $m{$u}{$_}{dir}/$u" for qw( g d m );
 
     extdiff ($u, sort split // => $opt_d);
-
-    $opt_d eq "dg" and system "diff", "-w", "$d->{dir}/$u", "$g->{dir}/$u";
-    $opt_d eq "gm" and system "diff", "-w", "$g->{dir}/$u", "$m->{dir}/$u";
     }
 
 sub extdiff {