From 8caff1d1de8a85ad6e0c07d496b26382b831e212 Mon Sep 17 00:00:00 2001
From: Nigel Metheringham <nigel.metheringham@dev.intechnology.co.uk>
Date: Fri, 24 Sep 2010 16:59:26 +0100
Subject: [PATCH] Better error message on die

---
 script/gen.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/script/gen.pl b/script/gen.pl
index eb61e05..3c1137b 100755
--- a/script/gen.pl
+++ b/script/gen.pl
@@ -313,7 +313,7 @@ sub transform {
     mkdirp( ( $out_path =~ /^(.+)\/.+$/ )[0] );
 
     ## Write out the document
-    open my $out, '>', $out_path or die $!;
+    open my $out, '>', $out_path or die "Unable to write $out_path - $!";
     print $out $stylesheet->output_as_bytes($doc);
     close $out;
 }
-- 
2.30.2