svn commit: r209861 - /perl/modperl/trunk/src/modules/perl/modperl_cmd.c

[stas]

Author: stas
Date: Fri Jul  8 12:09:49 2005
New Revision: 209861

URL: http://svn.apache.org/viewcvs?rev=209861&view=rev
Log:
blead perl temp fix: some recent change introduced tainting problems, will 
remove 
the workaround once blead perl is fixed

Modified:
    perl/modperl/trunk/src/modules/perl/modperl_cmd.c

Modified: perl/modperl/trunk/src/modules/perl/modperl_cmd.c
URL: 
http://svn.apache.org/viewcvs/perl/modperl/trunk/src/modules/perl/modperl_cmd.c?rev=209861&r1=209860&r2=209861&view=diff
==============================================================================
--- perl/modperl/trunk/src/modules/perl/modperl_cmd.c (original)
+++ perl/modperl/trunk/src/modules/perl/modperl_cmd.c Fri Jul  8 12:09:49 2005
@@ -554,6 +554,9 @@
         GV *gv = gv_fetchpv("0", TRUE, SVt_PV);
         ENTER;SAVETMPS;
         save_scalar(gv); /* local $0 */
+#if PERL_REVISION == 5 && PERL_VERSION >= 9
+        TAINT_NOT; /* XXX: temp workaround, see my p5p post */
+#endif
         sv_setpv_mg(GvSV(gv), directive->filename);
         eval_sv(code, G_SCALAR|G_KEEPERR);
         SvREFCNT_dec(code);