svn commit: r1733563 - in /perl/modperl/trunk/src/modules/perl: modperl_env.c modperl_perl.c

[stevehay]

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 <k...@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);