X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fop%2Fconcat.t;h=ff163491b00bb570da5d761f69ab613578495453;hb=dae61315f25fcf8c7df4b4125f53b733e5e58dea;hp=5ef40dd8c17df2e8ec4a8cd9ff8431e6d26362b7;hpb=90f5826e78891b7633d6b153f416059ce7d36f9e;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/op/concat.t b/t/op/concat.t
index 5ef40dd..ff16349 100644
--- a/t/op/concat.t
+++ b/t/op/concat.t
@@ -18,7 +18,7 @@ sub ok {
     return $ok;
 }
 
-print "1..28\n";
+print "1..29\n";
 
 ($a, $b, $c) = qw(foo bar);
 
@@ -146,3 +146,9 @@ sub beq { use bytes; $_[0] eq $_[1]; }
     ok(($x1 eq $x2),  "perl #26905, left,  .= vs = . in chars");
     ok(($y1 eq $y2),  "perl #26905, right, .= vs = . in chars");
 }
+
+{
+    # Concatenation needs to preserve UTF8ness of left oper.
+    my $x = eval"qr/\x{fff}/";
+    ok( ord chop($x .= "\303\277") == 191, "UTF8ness preserved" );
+}