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/tr.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/tr.t')
-rwxr-xr-x | t/op/tr.t | 12 |
1 files changed, 11 insertions, 1 deletions
@@ -6,7 +6,7 @@ BEGIN { require './test.pl'; } -plan tests => 116; +plan tests => 118; my $Is_EBCDIC = (ord('i') == 0x89 & ord('J') == 0xd1); @@ -455,3 +455,13 @@ is($s, "AxBC", "utf8, DELETE"); } # non-characters end +{ # related to [perl #27940] + my $c; + + ($c = "\x20\c@\x30\cA\x40\cZ\x50\c_\x60") =~ tr/\c@-\c_//d; + is($c, "\x20\x30\x40\x50\x60", "tr/\\c\@-\\c_//d"); + + ($c = "\x20\x00\x30\x01\x40\x1A\x50\x1F\x60") =~ tr/\x00-\x1f//d; + is($c, "\x20\x30\x40\x50\x60", "tr/\\x00-\\x1f//d"); +} + |