Mailing List Archive

Author: stevehay
Date: Fri Mar 4 08:23:32 2016
New Revision: 1733563

URL: http://svn.apache.org/viewvc?rev=1733563&view=rev
Log:
Fix compile errors since SVN revision 1717474 for unthreaded perl

Thanks to Klaus S. Madsen <ksm@jobindex.dk> for the patch.

Modified:
perl/modperl/trunk/src/modules/perl/modperl_env.c
perl/modperl/trunk/src/modules/perl/modperl_perl.c

Modified: perl/modperl/trunk/src/modules/perl/modperl_env.c
URL: http://svn.apache.org/viewvc/perl/modperl/trunk/src/modules/perl/modperl_env.c?rev=1733563&r1=1733562&r2=1733563&view=diff
==============================================================================
--- perl/modperl/trunk/src/modules/perl/modperl_env.c (original)
+++ perl/modperl/trunk/src/modules/perl/modperl_env.c Fri Mar 4 08:23:32 2016
@@ -654,8 +654,6 @@ void modperl_env_init(pTHX)
MAGIC *mg;

/* Find the 'E' magic on %ENV */
- if (!my_perl)
- return;
if (!PL_envgv)
return;
if (!SvRMAGICAL(ENVHV))
@@ -685,8 +683,6 @@ void modperl_env_unload(pTHX)
MAGIC *mg;

/* Find the 'E' magic on %ENV */
- if (!my_perl)
- return;
if (!PL_envgv)
return;
if (!SvRMAGICAL(ENVHV))

Modified: perl/modperl/trunk/src/modules/perl/modperl_perl.c
URL: http://svn.apache.org/viewvc/perl/modperl/trunk/src/modules/perl/modperl_perl.c?rev=1733563&r1=1733562&r2=1733563&view=diff
==============================================================================
--- perl/modperl/trunk/src/modules/perl/modperl_perl.c (original)
+++ perl/modperl/trunk/src/modules/perl/modperl_perl.c Fri Mar 4 08:23:32 2016
@@ -181,7 +181,7 @@ void modperl_perl_destruct(PerlInterpret
}
}

- modperl_env_unload(perl);
+ modperl_env_unload(aTHX);

perl_destruct(perl);