From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Fri, 17 Dec 2004 16:18:01 +0000 (+0000)
Subject: useful warning
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=d620bb70e5e91e78f93028270bb7b40f6dabd176;p=infobot.git

useful warning


git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@1102 c11ca15a-4712-0410-83d8-924469b57eb5
---

diff --git a/src/Net.pl b/src/Net.pl
index c08341c..035ceba 100644
--- a/src/Net.pl
+++ b/src/Net.pl
@@ -183,7 +183,10 @@ sub getURLAsFile {
     my ($ua,$res,$req);
     my $time = time();
 
-    return unless &loadPerlModule("LWP::UserAgent");
+    unless (&loadPerlModule('LWP::UserAgent')) {
+	&::DEBUG('getURLAsFile: LWP::UserAgent not installed');
+	return;
+    }
 
     $ua = new LWP::UserAgent;
     $ua->proxy('http', $param{'httpProxy'}) if &IsParam("httpProxy");