diff options
| author | Yves Orton <demerphq@gmail.com> | 2006-10-06 21:16:01 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-10-07 14:30:32 +0000 |
| commit | 81714fb9c03d91d66b66cab6e899e81bf64a2ca7 (patch) | |
| tree | 40861dec0355f417fff2a7ff3c393082960066cc /t/op/regexp.t | |
| parent | f5def3a2a0d8913110936f9f4e13e37835754c28 (diff) | |
| download | perl-81714fb9c03d91d66b66cab6e899e81bf64a2ca7.tar.gz | |
Re: [PATCH] Initial attempt at named captures for perls regexp engine
Message-ID: <9b18b3110610061016x5ddce965u30d9a821f632d450@mail.gmail.com>
p4raw-id: //depot/perl@28957
Diffstat (limited to 't/op/regexp.t')
| -rwxr-xr-x | t/op/regexp.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/regexp.t b/t/op/regexp.t index 2b21766875..6a469b7699 100755 --- a/t/op/regexp.t +++ b/t/op/regexp.t @@ -64,7 +64,7 @@ while (<TESTS>) { $input = join(':',$pat,$subject,$result,$repl,$expect); infty_subst(\$pat); infty_subst(\$expect); - $pat = "'$pat'" unless $pat =~ /^[:']/; + $pat = "'$pat'" unless $pat =~ /^[:'\/]/; $pat =~ s/(\$\{\w+\})/$1/eeg; $pat =~ s/\\n/\n/g; $subject = eval qq("$subject"); |