skip_all_without_unicode_tables();
}
-plan tests => 772; # Update this when adding/deleting tests.
+plan tests => 774; # Update this when adding/deleting tests.
run_tests() unless caller;
ok(1, "compiled GOSUB in CURLYM ok");
is($match, 'xxyxxyx', "matched GOSUB in CURLYM");
}
+
+ {
+ # [perl #123852] doesn't avoid all the capture-related work with
+ # //n, leading to possible memory corruption
+ eval q{ qr{()(?1)}n };
+ my $error = $@;
+ ok(1, "qr{()(?1)}n didn't crash");
+ like($error, qr{Reference to nonexistent group},
+ 'gave appropriate error for qr{()(?1)}n');
+ }
} # End of sub run_tests
1;