[interchange] Include stubs for proper operation for Vend::CharSet

[David Christensen]

commit ced2a5639915ed44b2ebd947640c44c362b3fa1e
Author: David Christensen <david at endpoint.com>
Date:   Wed Dec 7 11:36:00 2016 -0600

    Include stubs for proper operation for Vend::CharSet
    
    When $ENV{MINIVEND_DISABLE_UTF8} is set, make sure we have stubs setup so it'll work as expected in
    all cases.

 lib/Vend/CharSet.pm |   10 +++++++++-
 1 files changed, 9 insertions(+), 1 deletions(-)
---
diff --git a/lib/Vend/CharSet.pm b/lib/Vend/CharSet.pm
index a508af5..fc98679 100644
--- a/lib/Vend/CharSet.pm
+++ b/lib/Vend/CharSet.pm
@@ -31,7 +31,15 @@ package Vend::CharSet;
 use strict;
 
 use utf8; eval "\$\343\201\257 = 42";  # attempt to automatically load the utf8 libraries.
-unless( $ENV{MINIVEND_DISABLE_UTF8} ) {
+
+if ( $ENV{MINIVEND_DISABLE_UTF8} ) {
+    # install stubs for proper operation
+	*is_utf8 = sub { 0 };
+    *find_encoding = sub { };
+    # first arg is encoding, second is data, we're just passing-through
+    *decode = sub { $_[1] };
+}
+else {
 	require Encode;
 	import Encode qw( decode is_utf8 find_encoding );
 }