This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
A temporary debugging aid for Tru64 threaded builds.
authorJarkko Hietaniemi <jhi@iki.fi>
Thu, 10 Apr 2003 09:40:24 +0000 (09:40 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 10 Apr 2003 09:40:24 +0000 (09:40 +0000)
p4raw-id: //depot/perl@19182

ext/B/t/deparse.t

index f60d913..50746e7 100644 (file)
@@ -119,7 +119,12 @@ $b =~ s/(LINE:)/sub BEGIN {
     'XL'->bootstrap;
 }
 $1/ if $Is_MacOS;
-print "# [$a]\n\# vs expected\n# [$b]\nnot " if $a ne $b;
+if ($a ne $b) {
+    # A temporary debugging aid (Tru64 threaded smoke test somehow
+    # broke between 19150 and 19160, but works okay from command line.)
+    print STDERR "# [$a]\n\# vs expected\n# [$b]\n";
+    print "not ";
+}
 print "ok " . $i++ . "\n";
 
 __DATA__