From 4c5016ca299ec567794b9c6b20ac6a64429c6ba6 Mon Sep 17 00:00:00 2001
From: imaginos <imaginos@726aef4b-f618-498e-8847-2d620e286838>
Date: Sat, 14 May 2005 07:26:33 +0000
Subject: [PATCH] dont require all args for Put*

git-svn-id: https://znc.svn.sourceforge.net/svnroot/znc/trunk@288 726aef4b-f618-498e-8847-2d620e286838
---
 modules/modperl.cpp | 24 +++++++++++++++---------
 1 file changed, 15 insertions(+), 9 deletions(-)

diff --git a/modules/modperl.cpp b/modules/modperl.cpp
index 32472f3c..7fe3c17f 100644
--- a/modules/modperl.cpp
+++ b/modules/modperl.cpp
@@ -451,17 +451,20 @@ XS(XS_ZNC_PutStatus)
 XS(XS_ZNC_PutModule)
 {
 	dXSARGS;
-	if ( items != 3 )
-		Perl_croak( aTHX_ "Usage: PutModule( sLine, sIdent, sHost )" );
+	if ( items < 1 )
+		Perl_croak( aTHX_ "Usage: ZNC::PutModule( sLine, sIdent, sHost )" );
 
 	SP -= items;
 	ax = (SP - PL_stack_base) + 1 ;
 	{
 		if ( g_ModPerl )
 		{
-			CString sLine = (char *)SvPV(ST(0),PL_na);
-			CString sIdent = (char *)SvPV(ST(1),PL_na);
-			CString sHost = (char *)SvPV(ST(2),PL_na);
+			CString sLine, sIdent, sHost;
+			sLine = (char *)SvPV(ST(0),PL_na);
+			if ( items >= 2 )
+				sIdent = (char *)SvPV(ST(1),PL_na);
+			if ( items >= 3 )
+				sHost = (char *)SvPV(ST(2),PL_na);
 			g_ModPerl->PutModule( sLine, sIdent, sHost );
 		}
 		PUTBACK;
@@ -471,7 +474,7 @@ XS(XS_ZNC_PutModule)
 XS(XS_ZNC_PutModNotice)
 {
 	dXSARGS;
-	if ( items != 3 )
+	if ( items < 1 )
 		Perl_croak( aTHX_ "Usage: PutModNotice( sLine, sIdent, sHost )" );
 
 	SP -= items;
@@ -479,9 +482,12 @@ XS(XS_ZNC_PutModNotice)
 	{
 		if ( g_ModPerl )
 		{
-			CString sLine = (char *)SvPV(ST(0),PL_na);
-			CString sIdent = (char *)SvPV(ST(1),PL_na);
-			CString sHost = (char *)SvPV(ST(2),PL_na);
+			CString sLine, sIdent, sHost;
+			sLine = (char *)SvPV(ST(0),PL_na);
+			if ( items >= 2 )
+				sIdent = (char *)SvPV(ST(1),PL_na);
+			if ( items >= 3 )
+				sHost = (char *)SvPV(ST(2),PL_na);
 			g_ModPerl->PutModNotice( sLine, sIdent, sHost );
 		}
 		PUTBACK;