[ic] Bareword error in email.tag
Josh Lavin
josh at kdw.us
Wed Aug 18 14:34:31 UTC 2010
Using the latest Interchange nightly, along with the
MINIVEND_DISABLE_UTF8 environment variable, when starting IC the
email.tag threw:
Bareword "Encode::PERLQQ" not allowed while "strict subs" in use.
I made the following change which allows Interchange to start just fine.
Tested with a regular email, but did not test with UTF8 on...
--- 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);
http://github.com/jlavin/interchange/commit/cc04b8d886d77b04c1f848b67401e523f2f1b26c
--
Josh Lavin
Perusion -- Expert Interchange Consulting http://www.perusion.com/
More information about the interchange-users
mailing list