Fix a few segfaults and a when() bug

[p5sagit/p5-mst-13.2.git] / t / op / reg_nc_tie.t

diff --git a/t/op/reg_nc_tie.t b/t/op/reg_nc_tie.t
index f72970e..7a79a8e 100644 (file)
--- a/t/op/reg_nc_tie.t
+++ b/t/op/reg_nc_tie.t
@@ -8,7 +8,12 @@ BEGIN {
 
 # Do a basic test on all the tied methods of Tie::Hash::NamedCapture
 
-print "1..12\n";
+print "1..13\n";
+
+# PL_curpm->paren_names can be a null pointer. See that this succeeds anyway.
+'x' =~ /(.)/;
+() = %+;
+pass( 'still alive' );
 
 "hlagh" =~ /
     (?<a>.)