Better error message on die

diff --git a/script/gen.pl b/script/gen.pl
index eb61e05d9967646db876689347fc6ba28bd70334..3c1137bce534eee1fa487179a576bddfb0cf2023 100755 (executable)
--- a/script/gen.pl
+++ b/script/gen.pl
@@ -313,7 +313,7 @@ sub transform {
     mkdirp( ( $out_path =~ /^(.+)\/.+$/ )[0] );
 
     ## Write out the document
     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;
 }
     print $out $stylesheet->output_as_bytes($doc);
     close $out;
 }