diff options
| author | SADAHIRO Tomoyuki <BQW10602@nifty.com> | 2006-07-25 09:15:50 +0900 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-07-26 20:32:08 +0000 |
| commit | 1749ea0d81e275f5160a584ab9e554a4acc871e8 (patch) | |
| tree | 6b24beb3e47d2188e6bf5ab1ef1a0d7dc13fca72 /t/op/subst.t | |
| parent | 9ae4231fec23eab01ed1d777fb74f1070512d4d7 (diff) | |
| download | perl-1749ea0d81e275f5160a584ab9e554a4acc871e8.tar.gz | |
interpolation of @- (and @+) in patterns ([perl #27940] comes back)
Message-Id: <20060725001517.3C5D.BQW10602@nifty.com>
p4raw-id: //depot/perl@28620
Diffstat (limited to 't/op/subst.t')
| -rwxr-xr-x | t/op/subst.t | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/t/op/subst.t b/t/op/subst.t index bd481e47b3..0b02ff93f4 100755 --- a/t/op/subst.t +++ b/t/op/subst.t @@ -7,7 +7,7 @@ BEGIN { } require './test.pl'; -plan( tests => 131 ); +plan( tests => 133 ); $x = 'foo'; $_ = "x"; @@ -553,3 +553,13 @@ is($name, "cis", q[#22351 bug with 'e' substitution modifier]); } +{ # [perl #27940] perlbug: [\x00-\x1f] works, [\c@-\c_] does not + my $c; + + ($c = "\x20\c@\x30\cA\x40\cZ\x50\c_\x60") =~ s/[\c@-\c_]//g; + is($c, "\x20\x30\x40\x50\x60", "s/[\\c\@-\\c_]//g"); + + ($c = "\x20\x00\x30\x01\x40\x1A\x50\x1F\x60") =~ s/[\x00-\x1f]//g; + is($c, "\x20\x30\x40\x50\x60", "s/[\\x00-\\x1f]//g"); +} + |