A few tweaks to get Tk803 to work with Encode scheme.

[p5sagit/p5-mst-13.2.git] / t / lib / encode.t

diff --git a/t/lib/encode.t b/t/lib/encode.t
index 4610181..08e9bac 100644 (file)
--- a/t/lib/encode.t
+++ b/t/lib/encode.t
@@ -17,7 +17,7 @@ ok(from_to($cpy,'Unicode','iso8859-1'),length($str),"Length wrong");
 ok($cpy,$str,"ASCII mangled by translating from Unicode to iso8859-1");
 
 $str = join('',map(chr($_),0xa0..0xff));
-my $cpy = $str;
+$cpy = $str;
 ok(length($str),from_to($cpy,'iso8859-1','Unicode'),"Length Wrong");
 
 my $sym = Encode->getEncoding('symbol');