diff options
| author | Hugo van der Sanden <hv@crypt.org> | 1999-01-31 16:16:14 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-02-12 10:44:38 +0000 |
| commit | 43a1600645d3a38ec94bb7a1c90813c610fb1534 (patch) | |
| tree | d65e96b8aeff8fdc69b4a8e2b222c83566e16f90 /t/op/subst.t | |
| parent | 93430cb427caeba01ba89b008008b46159a7c165 (diff) | |
| download | perl-43a1600645d3a38ec94bb7a1c90813c610fb1534.tar.gz | |
update change#2670 to later version
Message-Id: <199901311616.QAA17673@crypt.compulink.co.uk>
Subject: Re: [PATCH 5.005_54] Evalled substitution parsing
p4raw-link: @2670 on //depot/cfgperl: e9fa98b27b08c227248dead8a754ba7c9269fec0
p4raw-id: //depot/perl@2892
Diffstat (limited to 't/op/subst.t')
| -rwxr-xr-x | t/op/subst.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/op/subst.t b/t/op/subst.t index 65deab2ef8..2d15df4dc1 100755 --- a/t/op/subst.t +++ b/t/op/subst.t @@ -6,7 +6,7 @@ BEGIN { require Config; import Config; } -print "1..82\n"; +print "1..83\n"; $x = 'foo'; $_ = "x"; @@ -371,5 +371,8 @@ eval q% s/a/"b"}/e %; print ($@ =~ /Bad evalled substitution/ ? "ok 81\n" : "not ok 81\n"); eval q% ($_ = "x") =~ s/(.)/"$1 "/e %; print +($_ eq "x " and !length $@) ? "ok 82\n" : "not ok 82\n# \$_ eq $_, $@\n"; +$x = $x = 'interp'; +eval q% ($_ = "x") =~ s/x(($x)*)/"$1"/e %; +print +($_ eq '' and !length $@) ? "ok 83\n" : "not ok 83\n# \$_ eq $_, $@\n"; |