[interchange-cvs] interchange - jon modified lib/Vend/CharSet.pm

[interchange-cvs at icdevgroup.org]

User:      jon
Date:      2008-09-26 15:38:17 GMT
Modified:  lib/Vend CharSet.pm
Log:
Quell bogus warnings from Encode::Alias. Resolves RT #224.

Thanks to Andy <ic at tvcables.co.uk> and Rene Hertell <icdevgroup at hertell.com> for reporting.

Revision  Changes    Path
2.10                 interchange/lib/Vend/CharSet.pm


rev 2.10, prev_rev 2.9
Index: CharSet.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/CharSet.pm,v
retrieving revision 2.9
retrieving revision 2.10
diff -u -u -r2.9 -r2.10
--- CharSet.pm	17 Jul 2008 15:00:04 -0000	2.9
+++ CharSet.pm	26 Sep 2008 15:38:17 -0000	2.10
@@ -1,6 +1,6 @@
 # Vend::CharSet - utility methods for handling character encoding
 #
-# $Id: CharSet.pm,v 2.9 2008-07-17 15:00:04 mheins Exp $
+# $Id: CharSet.pm,v 2.10 2008-09-26 15:38:17 jon Exp $
 #
 # Copyright (C) 2008 Interchange Development Group
 # Copyright (C) 2008 Sonny Cook <sonny at endpoint.com>
@@ -34,10 +34,8 @@
 	$octets =~ tr/+/ /;
 	$octets =~ s/%([0-9a-fA-F][0-9a-fA-F])/chr(hex $1)/ge;
 
-	unless ($encoding || $class->validate_encoding($encoding)) {
-		return $octets;
-	}
-	
+	return $octets unless $encoding and $class->validate_encoding($encoding);
+
 	my $string = $class->to_internal($encoding, $octets);
 
 #::logDebug("decoded string: " . display_chars($string)) if $string;