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
authorKarl Williamson <public@khwilliamson.com>
Wed, 20 Mar 2013 17:35:58 +0000 (11:35 -0600)
committerKarl Williamson <public@khwilliamson.com>
Mon, 20 May 2013 14:59:11 +0000 (08:59 -0600)
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{#}/',