[interchange] Prevent bareword errors in email.tag when MINIVEND_DISABLE_UTF8 is set

[Jon Jensen]

commit 009b8846e7160df58e489cd609c640f66fe913ce
Author: Josh Lavin <josh at perusion.com>
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);