* Safe status could be confused if empty-body perl tag called,

again introduced by change of position in $MVSAFE::Safe.
interchange · Feb 2, 2017 · 2ec6dfa · 2ec6dfa
1 parent a580c90
commit 2ec6dfa
Showing 1 changed file with 5 additions and 1 deletion.
diff --git 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;