This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
avoid 'unescaped left brace' warnings
authorDavid Mitchell <davem@iabyn.com>
Mon, 4 Jun 2012 17:45:49 +0000 (18:45 +0100)
committerDavid Mitchell <davem@iabyn.com>
Wed, 13 Jun 2012 12:32:56 +0000 (13:32 +0100)
t/re/pat_re_eval.t

index d892a5e..1d724c2 100644 (file)
@@ -772,8 +772,8 @@ sub run_tests {
        norun("runtime code with unbalanced {} norun");
 
        use re 'eval';
        norun("runtime code with unbalanced {} norun");
 
        use re 'eval';
-       ok("a{" =~ '^(??{"a{"})$', "non-pattern literal code");
-       ok("a{" =~ /^${\'(??{"a{"})'}$/, "runtime code with unbalanced {}");
+       ok("a{" =~ '^a(??{"{"})$', "non-pattern literal code");
+       ok("a{" =~ /^a${\'(??{"{"})'}$/, "runtime code with unbalanced {}");
     }
 
     # make sure warnings come from the right place
     }
 
     # make sure warnings come from the right place