interchange-cvs at icdevgroup
Aug 26, 2010, 9:48 PM
Post #1 of 1
(334 views)
Permalink
|
|
[interchange] Prevent bareword errors in email.tag when MINIVEND_DISABLE_UTF8 is set
|
|
commit 009b8846e7160df58e489cd609c640f66fe913ce
Author: Josh Lavin <josh [at] perusion>
Date: Wed Aug 18 09:23:27 2010 -0500
Prevent bareword errors in email.tag when MINIVEND_DISABLE_UTF8 is set
code/UserTag/email.tag | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
---
diff --git a/code/UserTag/email.tag b/code/UserTag/email.tag
index e71ca14..49495c3 100644
--- a/code/UserTag/email.tag
+++ b/code/UserTag/email.tag
@@ -23,7 +23,7 @@ BEGIN {
sub utf8_to_other {
my ($string, $encoding) = @_;
- return $string unless defined Encode::PERLQQ; # nop if no Encode
+ return $string unless defined Encode::PERLQQ(); # nop if no Encode
unless(Encode::is_utf8($string)){
$string = Encode::decode('utf-8', $string);
_______________________________________________
interchange-cvs mailing list
interchange-cvs [at] icdevgroup
http://www.icdevgroup.org/mailman/listinfo/interchange-cvs
|
