From 3f5a646a41bf00cd9ad3d99be214434dee10787a Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@gnu.kitenet.net>
Date: Wed, 23 Sep 2009 14:56:18 -0400
Subject: [PATCH] avoid ugly messages when running ikiwiki -setup on a
 *directory*

---
 IkiWiki/Setup.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/IkiWiki/Setup.pm b/IkiWiki/Setup.pm
index 6ee112096..8a25ecc57 100644
--- 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;
 
-- 
2.39.5