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
