Fix up .gitignore files some more

[p5sagit/p5-mst-13.2.git] / ext / Storable / t / make_downgrade.pl

diff --git a/ext/Storable/t/make_downgrade.pl b/ext/Storable/t/make_downgrade.pl
index d806ebb..fc801a4 100644 (file)
--- a/ext/Storable/t/make_downgrade.pl
+++ b/ext/Storable/t/make_downgrade.pl
@@ -50,9 +50,10 @@ chop $utf8;
 
 uuencode_it (\$utf8, "Short 8 bit utf8 data");
 
-utf8::encode ($utf8);
+my $utf8b = $utf8;
+utf8::encode ($utf8b);
 
-uuencode_it (\$utf8, "Short 8 bit utf8 data as bytes");
+uuencode_it (\$utf8b, "Short 8 bit utf8 data as bytes");
 
 $utf8 x= 256;
 
@@ -62,9 +63,10 @@ $utf8 = "\x{C0FFEE}";
 
 uuencode_it (\$utf8, "Short 24 bit utf8 data");
 
-utf8::encode ($utf8);
+$utf8b = $utf8;
+utf8::encode ($utf8b);
 
-uuencode_it (\$utf8, "Short 24 bit utf8 data as bytes");
+uuencode_it (\$utf8b, "Short 24 bit utf8 data as bytes");
 
 $utf8 x= 256;
 
@@ -79,7 +81,8 @@ uuencode_it (\%uhash, "Hash with utf8 flag but no utf8 keys");
 
 $utf8 = "Schlo\xdf" . chr 256;
 chop $utf8;
-%uhash = (map {$_, $_} 'castle', "ch\xe5teau", $utf8, "\x{57CE}");
+my $a_circumflex = (ord ('A') == 193 ? "\x47" : "\xe5");
+%uhash = (map {$_, $_} 'castle', "ch${a_circumflex}teau", $utf8, "\x{57CE}");
 
 uuencode_it (\%uhash, "Hash with utf8 keys");