Mailing List Archive

commit 2ec6dfa797bbd73849047f0a40757850a66749fa
Author: Mike Heins <mikeh@endpoint.com>
Date: Thu Feb 2 08:36:58 2017 -0500

* Safe status could be confused if empty-body perl tag called,
again introduced by change of position in $MVSAFE::Safe.

lib/Vend/Interpolate.pm | 6 +++++-
1 files changed, 5 insertions(+), 1 deletions(-)
---
diff --git a/lib/Vend/Interpolate.pm b/lib/Vend/Interpolate.pm
index c472855..fb89ec8 100644
--- a/lib/Vend/Interpolate.pm
+++ b/lib/Vend/Interpolate.pm
@@ -1684,7 +1684,11 @@ sub tag_perl {

# Skip costly eval of code entirely if perl tag was called with no code,
# likely used only for the side-effect of opening database handles
- return if $body !~ /\S/;
+
+ if($body !~ /\S/) {
+ undef $MVSAFE::Safe;
+ return;
+ }

$body =~ tr/\r//d if $Global::Windows;


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