Mercurial > vim

diff src/if_perl.xs @ 1990:bce687811199 v7.2.287

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
updated for version 7.2-287
author vimboss
date Wed, 11 Nov 2009 13:45:33 +0000
parents 80e5b1da6676
children 5abd3e3c0085
line wrap: on
line diff
--- a/src/if_perl.xs
+++ b/src/if_perl.xs
@@ -720,8 +720,9 @@ ex_perl(eap)
 #ifdef HAVE_SANDBOX
     if (sandbox)
     {
+	safe = perl_get_sv( "VIM::safe", FALSE );
 # ifndef MAKE_TEST  /* avoid a warning for unreachable code */
-	if ((safe = perl_get_sv( "VIM::safe", FALSE )) == NULL || !SvTRUE(safe))
+	if (safe == NULL || !SvTRUE(safe))
 	    EMSG(_("E299: Perl evaluation forbidden in sandbox without the Safe module"));
 	else
 # endif