diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-12 13:32:51 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-12 13:32:51 +0000 |
| commit | 9f966f7a3650e5abf921f6ada1c12e32e212cf23 (patch) | |
| tree | 592b6c417c359672d35f53c210ec76e3d61fbb66 /t | |
| parent | 8268670f812926c9ec3dc5d88442c6573b0eacc5 (diff) | |
| download | perl-9f966f7a3650e5abf921f6ada1c12e32e212cf23.tar.gz | |
Get the whole line of ls, makes debugging easier
(from Schwern)
p4raw-id: //depot/perl@13652
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/stat.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/stat.t b/t/op/stat.t index a78670ad17..15548e16a0 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; |