This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
efcfdf1
)
avoid 'unescaped left brace' warnings
author
David Mitchell
<davem@iabyn.com>
Mon, 4 Jun 2012 17:45:49 +0000
(18:45 +0100)
committer
David Mitchell
<davem@iabyn.com>
Wed, 13 Jun 2012 12:32:56 +0000
(13:32 +0100)
t/re/pat_re_eval.t
patch
|
blob
|
blame
|
history
diff --git
a/t/re/pat_re_eval.t
b/t/re/pat_re_eval.t
index
d892a5e
..
1d724c2
100644
(file)
--- a/
t/re/pat_re_eval.t
+++ b/
t/re/pat_re_eval.t
@@
-772,8
+772,8
@@
sub run_tests {
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