Fix bug #21347 (segfault in UNIVERSAL::AUTOLOAD with qr//)

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

diff --git a/ext/B/t/concise.t b/ext/B/t/concise.t
index 86a645c..1a07d08 100644 (file)
--- a/ext/B/t/concise.t
+++ b/ext/B/t/concise.t
@@ -19,7 +19,8 @@ $out = runperl(switches => ["-MO=Concise"], prog => '$a', stderr => 1);
 
 is($op_base, 1, "Smallest OP sequence number");
 
-($op_base_p1, $cop_base) = ($out =~ /^(\d+)\s*<;>\s*nextstate\(main (\d+) /m);
+($op_base_p1, $cop_base)
+  = ($out =~ /^(\d+)\s*<;>\s*nextstate\(main (-?\d+) /m);
 
 is($op_base_p1, 2, "Second-smallest OP sequence number");
 
@@ -33,4 +34,4 @@ $out = runperl(
     stderr => 1,
 );
 
-like($out, qr/"foo"/, "-exec option with //=");
+like($out, qr/print/, "-exec option with //=");