diff options
| author | Adrian M. Enache <enache@rdslink.ro> | 2003-06-21 06:19:31 +0300 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-06-22 16:35:33 +0000 |
| commit | 0165acc7988347eaec71b2c2d2a9764893f0c240 (patch) | |
| tree | b4029237d15b8076708dea4f2338bb3dc1cd4462 /t | |
| parent | b3c0ec7c1220f243dffb147d13728e1cc44420cc (diff) | |
| download | perl-0165acc7988347eaec71b2c2d2a9764893f0c240.tar.gz | |
Re: Is it a Bug? ($c .= "5") . "6"
Message-ID: <20030621001931.GB1255@ratsnest.hole>
p4raw-id: //depot/perl@19841
Diffstat (limited to 't')
| -rw-r--r-- | t/op/concat.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/t/op/concat.t b/t/op/concat.t index c1a6e23e7e..d515a5927f 100644 --- a/t/op/concat.t +++ b/t/op/concat.t @@ -18,7 +18,7 @@ sub ok { return $ok; } -print "1..18\n"; +print "1..19\n"; ($a, $b, $c) = qw(foo bar); @@ -104,3 +104,8 @@ sub beq { use bytes; $_[0] eq $_[1]; } ok(beq($l, "\x{fe}"), "right not changed after concat b+u"); ok(beq($r, "\x{101}"), "left not changed after concat b+u"); } + +{ + my $a; ($a .= 5) . 6; + ok($a == 5, "($a .= 5) . 6 - present since 5.000"); +} |