Better error message on die
authorNigel Metheringham <nigel.metheringham@dev.intechnology.co.uk>
Fri, 24 Sep 2010 15:59:26 +0000 (16:59 +0100)
committerNigel Metheringham <nigel.metheringham@dev.intechnology.co.uk>
Fri, 24 Sep 2010 15:59:26 +0000 (16:59 +0100)
script/gen.pl

index eb61e05d9967646db876689347fc6ba28bd70334..3c1137bce534eee1fa487179a576bddfb0cf2023 100755 (executable)
@@ -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;
 }