svn commit: r157079 - perl/modperl/branches/apache2-rename-unstable/src/modules/perl/modperl_cmd.c

[geoff]

Author: geoff
Date: Fri Mar 11 05:54:43 2005
New Revision: 157079

URL: http://svn.apache.org/viewcvs?view=rev&rev=157079
Log:
sync with trunk revision 156999

Modified:
    perl/modperl/branches/apache2-rename-unstable/src/modules/perl/modperl_cmd.c

Modified: 
perl/modperl/branches/apache2-rename-unstable/src/modules/perl/modperl_cmd.c
URL: 
http://svn.apache.org/viewcvs/perl/modperl/branches/apache2-rename-unstable/src/modules/perl/modperl_cmd.c?view=diff&r1=157078&r2=157079
==============================================================================
--- 
perl/modperl/branches/apache2-rename-unstable/src/modules/perl/modperl_cmd.c 
(original)
+++ 
perl/modperl/branches/apache2-rename-unstable/src/modules/perl/modperl_cmd.c 
Fri Mar 11 05:54:43 2005
@@ -550,11 +550,13 @@
     }
 
     {
+        SV *code = newSVpv(arg, 0);
         GV *gv = gv_fetchpv("0", TRUE, SVt_PV);
         ENTER;SAVETMPS;
         save_scalar(gv); /* local $0 */
         sv_setpv_mg(GvSV(gv), directive->filename);
-        eval_pv(arg, FALSE);
+        eval_sv(code, G_SCALAR|G_KEEPERR);
+        SvREFCNT_dec(code);
         modperl_env_sync_srv_env_hash2table(aTHX_ p, scfg);
         modperl_env_sync_dir_env_hash2table(aTHX_ p, dcfg);
         FREETMPS;LEAVE;