From 20a970ae3d98ef4f63ef7294a31a8ad9d496df30 Mon Sep 17 00:00:00 2001 From: imaginos Date: Tue, 18 Mar 2008 02:30:42 +0000 Subject: [PATCH] make sure these scalars are declared as mortals as to avoid a memleak git-svn-id: https://znc.svn.sourceforge.net/svnroot/znc/trunk@987 726aef4b-f618-498e-8847-2d620e286838 --- modules/modperl.cpp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/modules/modperl.cpp b/modules/modperl.cpp index fb657926..94aec0bb 100644 --- a/modules/modperl.cpp +++ b/modules/modperl.cpp @@ -1016,10 +1016,10 @@ bool CModPerl::OnLoad( const CString & sArgs, CString & sMessage ) sv_2mortal((SV*)pZNCSpace); - newCONSTSUB( pZNCSpace, "CONTINUE", newSViv( CONTINUE ) ); - newCONSTSUB( pZNCSpace, "HALT", newSViv( HALT ) ); - newCONSTSUB( pZNCSpace, "HALTMODS", newSViv( HALTMODS ) ); - newCONSTSUB( pZNCSpace, "HALTCORE", newSViv( HALTCORE ) ); + newCONSTSUB( pZNCSpace, "CONTINUE", PString( CONTINUE ).GetSV() ); + newCONSTSUB( pZNCSpace, "HALT", PString( HALT ).GetSV() ); + newCONSTSUB( pZNCSpace, "HALTMODS", PString( HALTMODS ).GetSV() ); + newCONSTSUB( pZNCSpace, "HALTCORE", PString( HALTCORE ).GetSV() ); return( true ); }