Change 33768 by [EMAIL PROTECTED] on 2008/04/30 09:40:36
Avoid garbage in test output when running make minitest.
This makes all minitests pass on my machine.
Affected files ...
... //depot/perl/t/op/dbm.t#2 edit
... //depot/perl/t/op/pat.t#312 edit
Differences ...
==== //depot/perl/t/op/dbm.t#2 (text) ====
Index: perl/t/op/dbm.t
--- perl/t/op/dbm.t#1~33705~ 2008-04-17 05:44:56.000000000 -0700
+++ perl/t/op/dbm.t 2008-04-30 02:40:36.000000000 -0700
@@ -6,7 +6,7 @@
require './test.pl';
eval { require AnyDBM_File }; # not all places have dbm* functions
- skip_all("No dbm functions: $@") if $@;
+ skip_all("No dbm functions") if $@;
}
plan tests => 4;
==== //depot/perl/t/op/pat.t#312 (xtext) ====
Index: perl/t/op/pat.t
--- perl/t/op/pat.t#311~33767~ 2008-04-30 02:31:53.000000000 -0700
+++ perl/t/op/pat.t 2008-04-30 02:40:36.000000000 -0700
@@ -2054,6 +2054,7 @@
sub skip {
my $why = shift;
+ $why =~ s/\n.*//s;
my $n = @_ ? shift : 1;
for (1..$n) {
print "ok $test # skip: $why\n";
End of Patch.
