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

1 files changed, 16 insertions, 1 deletions

diff --git a/t/pragma/utf8.t b/t/pragma/utf8.t
index 75f607dcde..7224a7497a 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++;
 }