From d620bb70e5e91e78f93028270bb7b40f6dabd176 Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Fri, 17 Dec 2004 16:18:01 +0000
Subject: [PATCH] useful warning

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@1102 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/Net.pl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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");
-- 
2.39.2