From 83f6366473582b2845d42f78a53c08385538e9cd Mon Sep 17 00:00:00 2001
From: darthgandalf <darthgandalf@726aef4b-f618-498e-8847-2d620e286838>
Date: Thu, 9 Sep 2010 03:29:59 +0000
Subject: [PATCH] Fixed: modperl blocked loading of global modules.

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

diff --git a/modules/modperl.cpp b/modules/modperl.cpp
index 2e892c14..36ce5689 100644
--- a/modules/modperl.cpp
+++ b/modules/modperl.cpp
@@ -93,6 +93,9 @@ public:
 
 	virtual EModRet OnModuleLoading(const CString& sModName, const CString& sArgs,
 			bool& bSuccess, CString& sRetMsg) {
+		if (!GetUser()) {
+			return CONTINUE;
+		}
 		switch (LoadPerlModule(sModName, sArgs, GetUser(), sRetMsg)) {
 			case Perl_NotFound:
 				return CONTINUE;