[interchange-cvs] interchange - jon modified lib/Vend/CharSet.pm
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Fri Sep 26 15:38:17 UTC 2008
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;
More information about the interchange-cvs
mailing list