Change 13652: Get the whole line of ls, makes debugging easier

[Jarkko Hietaniemi]

Change 13652 by jhi@alpha on 2001/12/12 13:32:51

        Get the whole line of ls, makes debugging easier
        (from Schwern)

Affected files ...

.... //depot/perl/t/op/stat.t#49 edit

Differences ...

==== //depot/perl/t/op/stat.t#49 (xtext) ====
Index: perl/t/op/stat.t
--- perl/t/op/stat.t.~1~        Wed Dec 12 06:45:06 2001
+++ perl/t/op/stat.t    Wed Dec 12 06:45:06 2001
@@ -216,7 +216,7 @@
     @DEV = grep { ! m{\bstdout$} } @DEV;
 
     my $try = sub {
-       my @c1 = eval qq[\$DEV =~ /^$_[0]/mg];
+       my @c1 = eval qq[\$DEV =~ /^$_[0].*/mg];
        my @c2 = eval qq[grep { $_[1] "/dev/\$_" } \@DEV];
        my $c1 = scalar @c1;
        my $c2 = scalar @c2;
End of Patch.