From 768093b79285448c8adcb015d5ae04792c5f0335 Mon Sep 17 00:00:00 2001
From: darthgandalf <darthgandalf@726aef4b-f618-498e-8847-2d620e286838>
Date: Mon, 27 Sep 2010 14:45:42 +0000
Subject: [PATCH] More debugging output from modperl.

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

diff --git a/modules/modperl.cpp b/modules/modperl.cpp
index 36ce5689..336f8bec 100644
--- a/modules/modperl.cpp
+++ b/modules/modperl.cpp
@@ -63,6 +63,7 @@ public:
 			PERL_SYS_TERM();
 			m_pPerl = NULL;
 			sMessage = "Can't initialize perl.";
+			DEBUG(__PRETTY_FUNCTION__ << " can't init perl");
 			return false;
 		}
 		PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
@@ -86,6 +87,7 @@ public:
 			result = static_cast<ELoadPerlMod>(SvUV(ST(0)));
 			sRetMsg = PString(ST(1));
 		}
+		DEBUG(__PRETTY_FUNCTION__ << " " << sRetMsg);
 
 		PEND;
 		return result;
@@ -125,6 +127,7 @@ public:
 				bSuccess = true;
 				sRetMsg = "Module [" + sModName + "] unloaded";
 			}
+			DEBUG(__PRETTY_FUNCTION__ << " " << sRetMsg);
 			return HALT;
 		}
 		return CONTINUE;
@@ -172,6 +175,7 @@ public:
 			sRetMsg = "Something weird happened";
 		}
 		PEND;
+		DEBUG(__PRETTY_FUNCTION__ << " " << sRetMsg);
 		return result;
 	}