From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 21 Oct 2000 15:04:51 +0000 (+0100)
Subject: Testcases for a #7383,#7385 related bug.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5280a8e547c932ec16f016299ba615241bc09a38;p=p5sagit%2Fp5-mst-13.2.git

Testcases for a #7383,#7385 related bug.

Subject: PATCH Re: [ID 20001020.006] "$2$utf8" == modification of read-only-variable
Message-ID: <20001021150451.A51566@plum.flirble.org>

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

diff --git a/t/pragma/utf8.t b/t/pragma/utf8.t
index 75f607d..7224a74 100755
--- a/t/pragma/utf8.t
+++ b/t/pragma/utf8.t
@@ -10,7 +10,7 @@ BEGIN {
     }
 }
 
-print "1..101\n";
+print "1..103\n";
 
 my $test = 1;
 
@@ -543,4 +543,19 @@ sub nok_bytes {
 
     print "ok $test\n";
     $test++;
+
+    *pi = \undef;
+    # This bug existed earlier than the $2 bug, but is fixed with the same
+    # patch. Without the fix this will also croak:
+    # Modification of a read-only value attempted at ...
+    "$pi\x{1234}";
+
+    print "ok $test\n";
+    $test++;
+
+    # For symmetry with the above.
+    "\x{1234}$pi";
+
+    print "ok $test\n";
+    $test++;
 }