From 755c604a7cde81864fb10883f70afcca0b29fcec Mon Sep 17 00:00:00 2001
From: Alexey Sokolov <alexey+znc@asokolov.org>
Date: Mon, 1 Jul 2013 20:42:58 +0400
Subject: [PATCH] A bit more debug output on modperl

---
 modules/modperl.cpp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/modules/modperl.cpp b/modules/modperl.cpp
index 85f37bc9..67741994 100644
--- a/modules/modperl.cpp
+++ b/modules/modperl.cpp
@@ -165,6 +165,7 @@ public:
 		if (SvTRUE(ERRSV)) {
 			bSuccess = false;
 			sRetMsg = PString(ERRSV);
+			DEBUG("Perl ZNC::Core::GetModInfo died: " << sRetMsg);
 		} else if (0 < ret) {
 			switch(static_cast<ELoadPerlMod>(SvUV(ST(0)))) {
 				case Perl_NotFound: