[interchange] * Fix bug caused by re-positioning of MVSAFE::Safe definition. Caused

[Mike Heins]

commit a580c903220acce1ed881b4f7a2bcb64872cf7e7
Author: Mike Heins <mikeh at endpoint.com>
Date:   Wed Feb 1 23:18:59 2017 -0500

    * Fix bug caused by re-positioning of MVSAFE::Safe definition. Caused
      tables in Safe not to be defined properly.

 lib/Vend/Interpolate.pm |    6 ++----
 1 files changed, 2 insertions(+), 4 deletions(-)
---
diff --git a/lib/Vend/Interpolate.pm b/lib/Vend/Interpolate.pm
index c541a31..c472855 100644
--- a/lib/Vend/Interpolate.pm
+++ b/lib/Vend/Interpolate.pm
@@ -1612,7 +1612,6 @@ sub tag_perl {
 		}
 	}
 
-	$MVSAFE::Safe = 1;
 	my $always_global = $Global::PerlAlwaysGlobal->{$Vend::Cat};
 	my $not_global = 1;
 	if (
@@ -1621,7 +1620,6 @@ sub tag_perl {
 		$Global::AllowGlobal->{$Vend::Cat}
 		)
 	{
-		$MVSAFE::Safe = 0 unless $MVSAFE::Unsafe;
 		$not_global = 0;
 	}
 
@@ -1660,13 +1658,13 @@ sub tag_perl {
 
 	if($not_global) {
 		$Vend::TagWrapped ||= $Tag = $hole->wrap($Tag);
+		$MVSAFE::Safe = 1;
 	}
 	else {
 		$Tag = new Vend::Tags;
+		$MVSAFE::Safe = 0;
 	}
 
-Debug("Not global? not_global=$not_global Tag=$Tag Db=$Db{userdb} MVSAFE::Safe=$MVSAFE::Safe");
-
 	init_calc() if ! $Vend::Calc_initialized;
 	$ready_safe->share(@share) if @share;