Mailing List Archive

svn commit: r1213838 - /perl/modperl/trunk/src/modules/perl/modperl_perl_global.c
Author: gozer
Date: Tue Dec 13 18:33:18 2011
New Revision: 1213838

URL: http://svn.apache.org/viewvc?rev=1213838&view=rev
Log:
Avoid -Wall warning when mg_flags isn't used.


Modified:
perl/modperl/trunk/src/modules/perl/modperl_perl_global.c

Modified: perl/modperl/trunk/src/modules/perl/modperl_perl_global.c
URL: http://svn.apache.org/viewvc/perl/modperl/trunk/src/modules/perl/modperl_perl_global.c?rev=1213838&r1=1213837&r2=1213838&view=diff
==============================================================================
--- perl/modperl/trunk/src/modules/perl/modperl_perl_global.c (original)
+++ perl/modperl/trunk/src/modules/perl/modperl_perl_global.c Tue Dec 13 18:33:18 2011
@@ -338,6 +338,9 @@ modperl_perl_global_gvhv_restore(pTHX_ m
*/
MP_magical_untie(gvhv->tmphv, mg_flags);
SvREFCNT_dec(gvhv->tmphv);
+
+ /* avoiding -Wall warning */
+ mg_flags = mg_flags;
}

static void