Mailing List Archive

commit a580c903220acce1ed881b4f7a2bcb64872cf7e7
Author: Mike Heins <mikeh@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;


_______________________________________________
interchange-cvs mailing list
interchange-cvs@icdevgroup.org
http://www.icdevgroup.org/mailman/listinfo/interchange-cvs