Integrate macperl patch #16868.

[p5sagit/p5-mst-13.2.git] / ext / B / t / terse.t

diff --git a/ext/B/t/terse.t b/ext/B/t/terse.t
index 281d65c..1ad61b1 100644 (file)
--- a/ext/B/t/terse.t
+++ b/ext/B/t/terse.t
@@ -78,14 +78,18 @@ sub bar {
 
        # make a PV
        $foo = "a string";
+
+       # make an OP_SUBSTCONT
+       $foo =~ s/(a)/$1/;
 }
 
 SKIP: {
     use Config;
-    skip("- printing RVs not working under threads", 1)
-       if $Config{usethreads};
+    skip("- B::Terse won't grok RVs under ithreads yet", 1)
+       if $Config{useithreads};
     # Schwern's example of finding an RV
     my $path = join " ", map { qq["-I$_"] } @INC;
+    $path = '-I::lib -MMac::err=unix' if $^O eq 'MacOS';
     my $redir = $^O eq 'MacOS' ? '' : "2>&1";
     my $items = qx{$^X $path "-MO=Terse" -le "print \\42" $redir};
     like( $items, qr/RV $hex \\42/, 'RV' );