avoid ugly messages when running ikiwiki -setup on a *directory*

diff --git a/IkiWiki/Setup.pm b/IkiWiki/Setup.pm
index 6ee11209624a20a1a0080852b6f4a64dda756543..8a25ecc575da894711d27e4583e6ab491b350a45 100644 (file)
--- a/IkiWiki/Setup.pm
+++ b/IkiWiki/Setup.pm
@@ -20,8 +20,9 @@ sub load ($) {
        my $code;
        {
                local $/=undef;
-               $code=<IN>;
+               $code=<IN> || error("$setup: $!");
        }
+       
        ($code)=$code=~/(.*)/s;
        close IN;