summary refs log tree commit diff
diff options
context:
space:
mode:
authorEelco Dolstra <eelco.dolstra@logicblox.com>2012-12-20 12:22:13 +0100
committerEelco Dolstra <eelco.dolstra@logicblox.com>2012-12-20 12:22:13 +0100
commit9c29a2ed35d884cda182cea74aee2a7ee614de93 (patch)
tree81b8a74d50f9cc4482132e957fb726adf0206170
parente775d4d84fe4b90464b00d560ceb79665301d79b (diff)
downloadguix-9c29a2ed35d884cda182cea74aee2a7ee614de93.tar.gz
Give a better error message if writeFile fails due to permission issues
-rw-r--r--perl/lib/Nix/Utils.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl/lib/Nix/Utils.pm b/perl/lib/Nix/Utils.pm
index bc180e2a55..78d3db5427 100644
--- a/perl/lib/Nix/Utils.pm
+++ b/perl/lib/Nix/Utils.pm
@@ -23,7 +23,7 @@ sub uniq {
 
 sub writeFile {
     my ($fn, $s) = @_;
-    open TMP, ">$fn" or die;
+    open TMP, ">$fn" or die "cannot create file `$fn': $!";
     print TMP "$s" or die;
     close TMP or die;
 }
@@ -31,7 +31,7 @@ sub writeFile {
 sub readFile {
     local $/ = undef;
     my ($fn) = @_;
-    open TMP, "<$fn" or die;
+    open TMP, "<$fn" or die "cannot open file `$fn': $!";
     my $s = <TMP>;
     close TMP or die;
     return $s;