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 c08341cd0e0f5a731f955c4b4fc813305d538312..035ceba84001833a50b4d58c36c0cb62fa9936ac 100644 (file)
--- 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");