Mercurial > vim

diff src/if_perl.xs @ 1934:80e5b1da6676 v7.2.231

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
updated for version 7.2-231
author vimboss
date Tue, 14 Jul 2009 14:04:54 +0000
parents 9230c45fdde6
children bce687811199
line wrap: on
line diff
--- a/src/if_perl.xs
+++ b/src/if_perl.xs
@@ -720,9 +720,11 @@ ex_perl(eap)
 #ifdef HAVE_SANDBOX
     if (sandbox)
     {
+# ifndef MAKE_TEST  /* avoid a warning for unreachable code */
 	if ((safe = perl_get_sv( "VIM::safe", FALSE )) == NULL || !SvTRUE(safe))
 	    EMSG(_("E299: Perl evaluation forbidden in sandbox without the Safe module"));
 	else
+# endif
 	{
 	    PUSHMARK(SP);
 	    XPUSHs(safe);