perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From steve...@apache.org
Subject svn commit: r1733563 - in /perl/modperl/trunk/src/modules/perl: modperl_env.c modperl_perl.c
Date Fri, 04 Mar 2016 08:23:32 GMT
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);
 



Mime
View raw message