useragent: Raise an exception if the LWP module can't be loaded

[git.ikiwiki.info.git] / IkiWiki.pm

diff --git a/IkiWiki.pm b/IkiWiki.pm
index fa71f479107a2388fde2fe00a67bfa2daa4fb3a9..f916a566db4c65760b3f4203c89095887d27fcf5 100644 (file)
--- a/IkiWiki.pm
+++ b/IkiWiki.pm
@@ -1826,7 +1826,7 @@ sub check_canchange (@) {
                $file=possibly_foolish_untaint($file);
                if (! defined $file || ! length $file ||
                    file_pruned($file)) {
-                       error(gettext("bad file name %s"), $file);
+                       error(sprintf(gettext("bad file name %s"), $file));
                }
 
                my $type=pagetype($file);
@@ -2448,6 +2448,9 @@ sub add_autofile ($$$) {
 }
 
 sub useragent () {
+       eval q{use LWP};
+       error($@) if $@;
+
        return LWP::UserAgent->new(
                cookie_jar => $config{cookiejar},
                env_proxy => 1,         # respect proxy env vars