iarv/znc
1
0
Fork 0
mirror of https://github.com/znc/znc.git synced 2026-05-03 12:02:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

possible memleak during onload bu pZNCSpace not being mortal

Browse Source 
git-svn-id: https://znc.svn.sourceforge.net/svnroot/znc/trunk@986 726aef4b-f618-498e-8847-2d620e286838
This commit is contained in:
imaginos
2008-03-17 19:51:58 +00:00
parent 322483ab8e
commit ed15b68684
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
modules/modperl.cpp
View File

@@ -1009,11 +1009,13 @@ bool CModPerl::OnLoad( const CString & sArgs, CString & sMessage )
// this sets up the eval CB that we call from here on out. this way we can grab the error produced
SetupZNCScript();
HV *pZNCSpace = get_hv ( "ZNC::", TRUE);
HV *pZNCSpace = get_hv( "ZNC::", TRUE);
if ( !pZNCSpace )
return( false );
sv_2mortal((SV*)pZNCSpace);
newCONSTSUB( pZNCSpace, "CONTINUE", newSViv( CONTINUE ) );
newCONSTSUB( pZNCSpace, "HALT", newSViv( HALT ) );
newCONSTSUB( pZNCSpace, "HALTMODS", newSViv( HALTMODS ) );