aelemfast optimization opclass problem (c.f. [perl #38279])

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

diff --git a/ext/B/t/bytecode.t b/ext/B/t/bytecode.t
index 12450b0..3c7d282 100644 (file)
--- a/ext/B/t/bytecode.t
+++ b/ext/B/t/bytecode.t
@@ -19,7 +19,7 @@ BEGIN {
         print "1..0 # Skip -- Perl configured without B module\n";
         exit 0;
     }
-    if ($Config{ccflags} =~ /-DPERL_COPY_ON_WRITE/) {
+    if ($Config{ccflags} =~ /-DPERL_OLD_COPY_ON_WRITE/) {
        print "1..0 # skip - no COW for now\n";
        exit 0;
     }
@@ -68,9 +68,10 @@ EOT
        }
     }
     print <<"EOT";
+not ok $cnt
 --------- SCRIPT
 $script
---------- $?
+--------- \$\? = $?
 $got
 EOT
 } continue {