commit 954e8c54a09231c3baed92c9bba974b5fe6e5032
author Bram Moolenaar <Bram@vim.org> Wed Nov 11 13:45:33 2009 +0000
committer Bram Moolenaar <Bram@vim.org> Wed Nov 11 13:45:33 2009 +0000
tree 70e08fc60f4cc2f94435c51f71d9659c04980e65
parent ef94eec64431f053ac868f3c19d389057cf97772

updated for version 7.2-287

src/if_perl.xs

diff --git a/src/if_perl.xs b/src/if_perl.xs
index 926adce..1ef0eb4 100644
--- a/src/if_perl.xs
+++ b/src/if_perl.xs
@@ -720,8 +720,9 @@
 #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