X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fop%2Fconcat.t;h=865a498f221bfeaa24d162255c7919b540f3435c;hb=b36bdecab13f885c556206f71bfc47083b33107e;hp=c1a6e23e7e27c52bfe3be5bb556af95deb5eb830;hpb=db79b45b3c913399aef4d2f3647453e63c4772a8;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/op/concat.t b/t/op/concat.t
index c1a6e23..865a498 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..20\n";
 
 ($a, $b, $c) = qw(foo bar);
 
@@ -104,3 +104,16 @@ 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');
+}
+
+{
+    # [perl #24508] optree construction bug
+    sub strfoo { "x" }
+    my ($x, $y);
+    $y = ($x = '' . strfoo()) . "y";
+    ok( "$x,$y" eq "x,xy", 'figures out correct target' );
+}