From 21af04df7df18c9047c579f80531c35088d1c28a Mon Sep 17 00:00:00 2001 From: imaginos Date: Mon, 16 May 2005 02:10:42 +0000 Subject: [PATCH] use newCONSTSUB for these git-svn-id: https://znc.svn.sourceforge.net/svnroot/znc/trunk@314 726aef4b-f618-498e-8847-2d620e286838 --- modules/modperl.cpp | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/modules/modperl.cpp b/modules/modperl.cpp index b89d1d13..6f2d3824 100644 --- a/modules/modperl.cpp +++ b/modules/modperl.cpp @@ -747,10 +747,15 @@ bool CModPerl::OnLoad( const CString & sArgs ) // this sets up the eval CB that we call from here on out. this way we can grab the error produced SetupZNCScript(); - Eval( "use constant CONTINUE => " + PString( CONTINUE ) + ";" ); - Eval( "use constant HALT => " + PString( HALT ) + ";" ); - Eval( "use constant HALTMODS => " + PString( HALTMODS ) + ";" ); - Eval( "use constant HALTCORE => " + PString( HALTCORE ) + ";" ); + HV *pZNCSpace = get_hv ( "ZNC::", TRUE); + + if ( !pZNCSpace ) + return( false ); + + newCONSTSUB ( pZNCSpace, "CONTINUE", newSViv (CONTINUE) ); + newCONSTSUB ( pZNCSpace, "HALT", newSViv (HALT) ); + newCONSTSUB ( pZNCSpace, "HALTMODS", newSViv (HALTMODS) ); + newCONSTSUB ( pZNCSpace, "HALTCORE", newSViv (HALTCORE) ); if ( !sArgs.empty() ) {