From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 13 Apr 2002 19:10:08 +0000 (+0000)
Subject: Tweaks by Autrijus Tang.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=046f36bf3704c511ef3805d7e85e91c163efa516;p=p5sagit%2Fp5-mst-13.2.git

Tweaks by Autrijus Tang.

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

diff --git a/ext/Encode/encoding.pm b/ext/Encode/encoding.pm
index a0a6208..16dee96 100644
--- a/ext/Encode/encoding.pm
+++ b/ext/Encode/encoding.pm
@@ -2,6 +2,7 @@ package encoding;
 our $VERSION = do { my @r = (q$Revision: 1.25 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 use Encode;
+use strict;
 
 BEGIN {
     if (ord("A") == 193) {
@@ -28,9 +29,9 @@ sub import {
 	if ($arg{$h}){
 	    unless (defined find_encoding($name)) {
 		require Carp;
-		Carp::croak "Unknown encoding for $fhname, '$arg{$h}'";
+		Carp::croak "Unknown encoding for $h, '$arg{$h}'";
 	    }
-	    eval qq{ binmode($h, ":encoding($arg{h})") };
+	    eval qq{ binmode($h, ":encoding($arg{$h})") };
 	}else{
 	    eval qq{ binmode($h, ":encoding($name)") };
 	}