This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add missing test for regex parse error
[perl5.git] / t / re / reg_mesg.t
index 2e936b7..537283c 100644 (file)
@@ -104,6 +104,8 @@ my @death =
 
  '/(x)\2/' => 'Reference to nonexistent group {#} m/(x)\2{#}/',
 
+ '/\g{1/' => 'Unterminated \g{...} pattern {#} m/\g{1{#}/',
+
  'my $m = "\\\"; $m =~ $m', => 'Trailing \ in regex m/\/',
 
  '/\x{1/' => 'Missing right brace on \x{} {#} m/\x{1{#}/',