diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-04-30 09:40:36 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-04-30 09:40:36 +0000 |
| commit | eb5a2f3c949914007f75402d04b24b6c228e8e5c (patch) | |
| tree | e85b421ed99af044df68351232401dc08e4818e7 /t/op/pat.t | |
| parent | 987aaf079b1e0f705c83c2fbadd8415047dad879 (diff) | |
| download | perl-eb5a2f3c949914007f75402d04b24b6c228e8e5c.tar.gz | |
Avoid garbage in test output when running make minitest.
This makes all minitests pass on my machine.
p4raw-id: //depot/perl@33768
Diffstat (limited to 't/op/pat.t')
| -rwxr-xr-x | t/op/pat.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index 1e84532872..ec4222c926 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -2054,6 +2054,7 @@ sub ok ($;$) { sub skip { my $why = shift; + $why =~ s/\n.*//s; my $n = @_ ? shift : 1; for (1..$n) { print "ok $test # skip: $why\n"; |