X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FB%2Ft%2Fterse.t;h=1ad61b176855ffcae760d23485398ad2ae49a0d9;hb=e69a2255d0db4d110e403864fcb97407ce8e4ff9;hp=c586c094cf185d195bf532a5858d8df51b365abf;hpb=1212f7d8b3ae06ede18b94cd778484c93201c948;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/B/t/terse.t b/ext/B/t/terse.t
index c586c09..1ad61b1 100644
--- a/ext/B/t/terse.t
+++ b/ext/B/t/terse.t
@@ -78,13 +78,22 @@ sub bar {
 
 	# make a PV
 	$foo = "a string";
+
+	# make an OP_SUBSTCONT
+	$foo =~ s/(a)/$1/;
 }
 
-# Schwern's example of finding an RV
-my $path = join " ", map { qq["-I$_"] } @INC;
-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' );
+SKIP: {
+    use Config;
+    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' );
+}
 
 package TieOut;