Mercurial > vim

comparison 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
comparison
equal deleted inserted replaced
1933:dfdaac31aa5d 1934:80e5b1da6676
718 } 718 }
719 719
720 #ifdef HAVE_SANDBOX 720 #ifdef HAVE_SANDBOX
721 if (sandbox) 721 if (sandbox)
722 { 722 {
723 # ifndef MAKE_TEST /* avoid a warning for unreachable code */
723 if ((safe = perl_get_sv( "VIM::safe", FALSE )) == NULL || !SvTRUE(safe)) 724 if ((safe = perl_get_sv( "VIM::safe", FALSE )) == NULL || !SvTRUE(safe))
724 EMSG(_("E299: Perl evaluation forbidden in sandbox without the Safe module")); 725 EMSG(_("E299: Perl evaluation forbidden in sandbox without the Safe module"));
725 else 726 else
727 # endif
726 { 728 {
727 PUSHMARK(SP); 729 PUSHMARK(SP);
728 XPUSHs(safe); 730 XPUSHs(safe);
729 XPUSHs(sv); 731 XPUSHs(sv);
730 PUTBACK; 732 PUTBACK;