extra code in pp_concat, Take 2

Message-Id:  <20050414020601.GA21346@petdance.com>

add 'const', and remove extraneous code, from pp_concat

p4raw-id: //depot/perl@24269

1 files changed, 7 insertions, 1 deletions

diff --git a/t/op/concat.t b/t/op/concat.t
index 5ef40dd8c1..ff163491b0 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" );
+}