From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 12 Dec 2001 13:32:51 +0000 (+0000)
Subject: Get the whole line of ls, makes debugging easier
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9f966f7a3650e5abf921f6ada1c12e32e212cf23;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;