From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 21 Dec 2000 05:40:21 +0000 (+0000)
Subject: The polymorphism seems to have fixed 20000517.001.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=11c06dbaf80b6ed441f8e4914e50389cf409faaa;p=p5sagit%2Fp5-mst-13.2.git

The polymorphism seems to have fixed 20000517.001.

p4raw-id: //depot/perl@8216
---

diff --git a/t/pragma/utf8.t b/t/pragma/utf8.t
index 89416dc..8e4d296 100755
--- a/t/pragma/utf8.t
+++ b/t/pragma/utf8.t
@@ -10,7 +10,7 @@ BEGIN {
     }
 }
 
-print "1..104\n";
+print "1..105\n";
 
 my $test = 1;
 
@@ -543,3 +543,14 @@ sub nok_bytes {
     $test++;					# 104
 }
 
+{
+    # 20000517.001
+
+    my $x = "\x{100}A";
+
+    $x =~ s/A/B/;
+
+    print "not " unless $x eq "\x{100}B" && length($x) == 2;
+    print "ok $test\n";
+    $test++;					# 105
+}