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
This commit is contained in:
imaginos
2008-03-18 02:30:42 +00:00
parent ed15b68684
commit 20a970ae3d
+4 -4
View File
@@ -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 );
}