Return-Path: X-Original-To: apmail-perl-modperl-cvs-archive@www.apache.org Delivered-To: apmail-perl-modperl-cvs-archive@www.apache.org Received: from mail.apache.org (hermes.apache.org [140.211.11.3]) by minotaur.apache.org (Postfix) with SMTP id E96FB6D67 for ; Wed, 27 Jul 2011 19:15:28 +0000 (UTC) Received: (qmail 69917 invoked by uid 500); 27 Jul 2011 19:15:28 -0000 Delivered-To: apmail-perl-modperl-cvs-archive@perl.apache.org Received: (qmail 69855 invoked by uid 500); 27 Jul 2011 19:15:28 -0000 Mailing-List: contact modperl-cvs-help@perl.apache.org; run by ezmlm Precedence: bulk list-help: list-unsubscribe: List-Post: Reply-To: dev@perl.apache.org List-Id: Delivered-To: mailing list modperl-cvs@perl.apache.org Received: (qmail 69848 invoked by uid 99); 27 Jul 2011 19:15:27 -0000 Received: from nike.apache.org (HELO nike.apache.org) (192.87.106.230) by apache.org (qpsmtpd/0.29) with ESMTP; Wed, 27 Jul 2011 19:15:27 +0000 X-ASF-Spam-Status: No, hits=-2000.0 required=5.0 tests=ALL_TRUSTED X-Spam-Check-By: apache.org Received: from [140.211.11.4] (HELO eris.apache.org) (140.211.11.4) by apache.org (qpsmtpd/0.29) with ESMTP; Wed, 27 Jul 2011 19:15:24 +0000 Received: from eris.apache.org (localhost [127.0.0.1]) by eris.apache.org (Postfix) with ESMTP id 9B83C2388894; Wed, 27 Jul 2011 19:15:03 +0000 (UTC) Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Subject: svn commit: r1151596 - in /perl/modperl/branches/1.x: Changes Symbol/Symbol.xs src/modules/perl/Constants.xs src/modules/perl/Log.xs src/modules/perl/mod_perl.c src/modules/perl/mod_perl.h src/modules/perl/perl_config.c Date: Wed, 27 Jul 2011 19:15:02 -0000 To: modperl-cvs@perl.apache.org From: phred@apache.org X-Mailer: svnmailer-1.0.8 Message-Id: <20110727191503.9B83C2388894@eris.apache.org> X-Virus-Checked: Checked by ClamAV on apache.org Author: phred Date: Wed Jul 27 19:15:01 2011 New Revision: 1151596 URL: http://svn.apache.org/viewvc?rev=1151596&view=rev Log: RT 64999 perl 5.14 compatibility, GvCV and GvGP lvalue changes in perl core Reported by: Dave Mitchell Fixed by: sendwade@hotmail.com Tested by: Perrin Harkins, Fred Moyer Modified: perl/modperl/branches/1.x/Changes perl/modperl/branches/1.x/Symbol/Symbol.xs perl/modperl/branches/1.x/src/modules/perl/Constants.xs perl/modperl/branches/1.x/src/modules/perl/Log.xs perl/modperl/branches/1.x/src/modules/perl/mod_perl.c perl/modperl/branches/1.x/src/modules/perl/mod_perl.h perl/modperl/branches/1.x/src/modules/perl/perl_config.c Modified: perl/modperl/branches/1.x/Changes URL: http://svn.apache.org/viewvc/perl/modperl/branches/1.x/Changes?rev=1151596&r1=1151595&r2=1151596&view=diff ============================================================================== --- perl/modperl/branches/1.x/Changes (original) +++ perl/modperl/branches/1.x/Changes Wed Jul 27 19:15:01 2011 @@ -10,8 +10,11 @@ all changes without author attribution a =item 1.32-dev +RT 64999, perl 5.14 compatibility, GvCV and GvGP lvalue changes in perl core +[] + RT 40918, fix issue with sigils in perl binary path -[Slave Rezic ] +[Slaven Rezic ] Work around a gcc optimization specific bug which cuased seg faults on FreeBSD 7.x during mod_perl startup. Modified: perl/modperl/branches/1.x/Symbol/Symbol.xs URL: http://svn.apache.org/viewvc/perl/modperl/branches/1.x/Symbol/Symbol.xs?rev=1151596&r1=1151595&r2=1151596&view=diff ============================================================================== --- perl/modperl/branches/1.x/Symbol/Symbol.xs (original) +++ perl/modperl/branches/1.x/Symbol/Symbol.xs Wed Jul 27 19:15:01 2011 @@ -30,7 +30,7 @@ static void undef(SV *ref) has_proto = TRUE; cv_undef(cv); - CvGV(cv) = gv; /* let user-undef'd sub keep its identity */ + CvGV_set(cv, gv); /* let user-undef'd sub keep its identity */ if(has_proto) SvPOK_on(cv); /* otherwise we get `Prototype mismatch:' */ Modified: perl/modperl/branches/1.x/src/modules/perl/Constants.xs URL: http://svn.apache.org/viewvc/perl/modperl/branches/1.x/src/modules/perl/Constants.xs?rev=1151596&r1=1151595&r2=1151596&view=diff ============================================================================== --- perl/modperl/branches/1.x/src/modules/perl/Constants.xs (original) +++ perl/modperl/branches/1.x/src/modules/perl/Constants.xs Wed Jul 27 19:15:01 2011 @@ -20,7 +20,7 @@ static void export_cv(SV *pclass, SV *ca SvPVX(caller), sub, SvPVX(pclass), sub); #endif gv = gv_fetchpv(form("%_::%s", caller, sub), TRUE, SVt_PVCV); - GvCV(gv) = perl_get_cv(form("%_::%s", pclass, sub), TRUE); + GvCV_set(gv, perl_get_cv(form("%_::%s", pclass, sub), TRUE)); GvIMPORTED_CV_on(gv); } Modified: perl/modperl/branches/1.x/src/modules/perl/Log.xs URL: http://svn.apache.org/viewvc/perl/modperl/branches/1.x/src/modules/perl/Log.xs?rev=1151596&r1=1151595&r2=1151596&view=diff ============================================================================== --- perl/modperl/branches/1.x/src/modules/perl/Log.xs (original) +++ perl/modperl/branches/1.x/src/modules/perl/Log.xs Wed Jul 27 19:15:01 2011 @@ -10,7 +10,7 @@ static void perl_cv_alias(char *to, char *from) { GV *gp = gv_fetchpv(to, TRUE, SVt_PVCV); - GvCV(gp) = perl_get_cv(from, TRUE); + GvCV_set(gp, perl_get_cv(from, TRUE)); } static void ApacheLog(int level, SV *sv, SV *msg) Modified: perl/modperl/branches/1.x/src/modules/perl/mod_perl.c URL: http://svn.apache.org/viewvc/perl/modperl/branches/1.x/src/modules/perl/mod_perl.c?rev=1151596&r1=1151595&r2=1151596&view=diff ============================================================================== --- perl/modperl/branches/1.x/src/modules/perl/mod_perl.c (original) +++ perl/modperl/branches/1.x/src/modules/perl/mod_perl.c Wed Jul 27 19:15:01 2011 @@ -791,8 +791,8 @@ void perl_startup (server_rec *s, pool * /* *CORE::GLOBAL::exit = \&Apache::exit */ if(gv_stashpv("CORE::GLOBAL", FALSE)) { GV *exitgp = gv_fetchpv("CORE::GLOBAL::exit", TRUE, SVt_PVCV); - GvCV(exitgp) = perl_get_cv("Apache::exit", TRUE); - GvIMPORTED_CV_on(exitgp); + GvCV_set(exitgp, perl_get_cv("Apache::exit", TRUE)); + GvIMPORTED_CV_on(exitgp); } ENTER_SAFE(s,p); Modified: perl/modperl/branches/1.x/src/modules/perl/mod_perl.h URL: http://svn.apache.org/viewvc/perl/modperl/branches/1.x/src/modules/perl/mod_perl.h?rev=1151596&r1=1151595&r2=1151596&view=diff ============================================================================== --- perl/modperl/branches/1.x/src/modules/perl/mod_perl.h (original) +++ perl/modperl/branches/1.x/src/modules/perl/mod_perl.h Wed Jul 27 19:15:01 2011 @@ -1026,6 +1026,14 @@ else { \ #define PERL_HEADER_PARSER_CREATE(s) #endif +#ifndef GvCV_set +#define GvCV_set(gv, cv) (GvCV(gv) = (cv)) +#endif + +#ifndef GvCV_set +#define CvGV_set(gv, cv) (CvVG(gv) = (cv)) +#endif + typedef struct { array_header *PerlPassEnv; array_header *PerlRequire; Modified: perl/modperl/branches/1.x/src/modules/perl/perl_config.c URL: http://svn.apache.org/viewvc/perl/modperl/branches/1.x/src/modules/perl/perl_config.c?rev=1151596&r1=1151595&r2=1151596&view=diff ============================================================================== --- perl/modperl/branches/1.x/src/modules/perl/perl_config.c (original) +++ perl/modperl/branches/1.x/src/modules/perl/perl_config.c Wed Jul 27 19:15:01 2011 @@ -1720,7 +1720,7 @@ void perl_clear_symtab(HV *symtab) if((cv = GvCV((GV*)val)) && (GvSTASH((GV*)val) == GvSTASH(CvGV(cv)))) { GV *gv = CvGV(cv); cv_undef(cv); - CvGV(cv) = gv; + CvGV_set(cv, gv); GvCVGEN(gv) = 1; /* invalidate method cache */ } }