Change 12492 by jhi@alpha on 2001/10/18 12:37:28
Wrong skip() arguments.
Affected files ...
... //depot/perl/ext/B/t/terse.t#4 edit
Differences ...
==== //depot/perl/ext/B/t/terse.t#4 (text) ====
Index: perl/ext/B/t/terse.t
--- perl/ext/B/t/terse.t.~1~ Thu Oct 18 06:45:05 2001
+++ perl/ext/B/t/terse.t Thu Oct 18 06:45:05 2001
@@ -82,7 +82,8 @@
SKIP: {
use Config;
- skip("- printing RVs not working under threads") if $Config{usethreads};
+ skip("- printing RVs not working under threads", 1)
+ if $Config{usethreads};
# Schwern's example of finding an RV
my $path = join " ", map { qq["-I$_"] } @INC;
my $redir = $^O eq 'MacOS' ? '' : "2>&1";
End of Patch.
