test append to SV initialized by folded constant

1 files changed, 8 insertions, 1 deletions

diff --git a/t/op/concat.t b/t/op/concat.t
index ff163491b0..e2e2c667dc 100644
--- a/t/op/concat.t
+++ b/t/op/concat.t
@@ -18,7 +18,7 @@ sub ok {
     return $ok;
 }
 
-print "1..29\n";
+print "1..30\n";
 
 ($a, $b, $c) = qw(foo bar);
 
@@ -152,3 +152,10 @@ sub beq { use bytes; $_[0] eq $_[1]; }
     my $x = eval"qr/\x{fff}/";
     ok( ord chop($x .= "\303\277") == 191, "UTF8ness preserved" );
 }
+
+{
+    my $x;
+    $x = "a" . "b";
+    $x .= "-append-";
+    ok($x eq "ab-append-", "Appending to something initialized using constant folding");
+}