[ic] Bareword error in email.tag

[Josh Lavin]

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/