[interchange] Prevent bareword errors in email.tag when MINIVEND_DISABLE_UTF8 is set
Jon Jensen <[email protected]>
| Newsgroups | gmane.comp.web.interchange.cvs |
|---|---|
| Message-ID | <[email protected]> |
commit 009b8846e7160df58e489cd609c640f66fe913ce Author: Josh Lavin <[email protected]> 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);