Get the whole line of ls, makes debugging easier

(from Schwern)

p4raw-id: //depot/perl@13652

diff --git a/t/op/stat.t b/t/op/stat.t
index a78670a..15548e1 100755 (executable)
--- a/t/op/stat.t
+++ b/t/op/stat.t
@@ -216,7 +216,7 @@ SKIP: {
     @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;