Add checks for MV_UTF8 in global variable space

Depending on the context in which a particular piece of code is
called, $::Variable will be aliased to either the variables defined in
interchange.cfg (i.e., $Global::Variable) or in the specific
catalog.cfg.

In order to handle the fact that MV_UTF8 can be defined in either
interchange.cfg or catalog.cfg, change all checks to look at both
$::Variable and $Global::Variable explicitly.

This is known to have affected the [import] tag at the very least, and
likely had other subtle implications in other places.

Author: David Christensen

lib/Vend/File.pm

@@ -65,7 +65,7 @@ sub writefile {
     my($file, $data, $opt) = @_;
 	my($encoding, $fallback);
 
-	if ($::Variable->{MV_UTF8}) {
+	if ($::Variable->{MV_UTF8} || $Global::Variable->{MV_UTF8}) {
 		$encoding = $opt->{encoding} ||= 'utf-8';
 		undef $encoding if $encoding eq 'raw';
 		$fallback = $opt->{fallback};
@@ -197,7 +197,7 @@ sub readfile {
 
 	$opt ||= {};
 
-	if ($::Variable->{MV_UTF8}) {
+	if ($::Variable->{MV_UTF8} || $Global::Variable->{MV_UTF8}) {
 		$encoding = $opt->{encoding} ||= 'utf-8';
 		$fallback = $opt->{fallback};
 		$fallback = Encode::PERLQQ() unless defined $fallback;

lib/Vend/Server.pm

@@ -482,7 +482,7 @@ sub parse_multipart {
 			$content_type ||= 'text/plain';
 			$charset ||= default_charset();
 
-			if ($content_type =~ m{^text/}i && $::Variable->{MV_UTF8}) {
+			if ($content_type =~ m{^text/}i && ($::Variable->{MV_UTF8} || $Global::Variable->{MV_UTF8})) {
 				Vend::CharSet::to_internal($charset, \$data);
 				# use our character set instead of the client's one
 				# to store the file

lib/Vend/Table/Common.pm

@@ -1636,7 +1636,7 @@ sub log_error {
 
 sub new_filehandle {
 	my $fh = shift;
-	binmode($fh, ":utf8") if $::Variable->{MV_UTF8};
+	binmode($fh, ":utf8") if $::Variable->{MV_UTF8} || $Global::Variable->{MV_UTF8};
 	return $fh;
 }
 

lib/Vend/Util.pm

@@ -1179,7 +1179,7 @@ sub readin {
 
 		if (open(MVIN, "< $fn")) {
 			binmode(MVIN) if $Global::Windows;
-			binmode(MVIN, ":utf8") if $::Variable->{MV_UTF8};
+			binmode(MVIN, ":utf8") if $::Variable->{MV_UTF8} || $Global::Variable->{MV_UTF8};
 			undef $/;
 			$contents = <MVIN>;
 			close(MVIN);