From feb3ceaee034cf5783264eb9dc6bd2dd62298341 Mon Sep 17 00:00:00 2001 From: Eelco Dolstra Date: Thu, 4 Nov 2004 20:20:39 +0000 Subject: [PATCH] * Better error messages. --- scripts/nix-channel.in | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/scripts/nix-channel.in b/scripts/nix-channel.in index d05751512..1733afceb 100755 --- a/scripts/nix-channel.in +++ b/scripts/nix-channel.in @@ -17,7 +17,7 @@ my @channels; # Reads the list of channels from the file $channelsList; sub readChannels { return if (!-f $channelsList); - open CHANNELS, "<$channelsList" or die "cannot open `$channelsList'"; + open CHANNELS, "<$channelsList" or die "cannot open `$channelsList': $!"; while () { chomp; push @channels, $_; @@ -28,7 +28,7 @@ sub readChannels { # Writes the list of channels to the file $channelsList; sub writeChannels { - open CHANNELS, ">$channelsList" or die "cannot open `$channelsList'"; + open CHANNELS, ">$channelsList" or die "cannot open `$channelsList': $!"; foreach my $url (@channels) { print CHANNELS "$url\n"; } @@ -94,7 +94,7 @@ sub update { my $rootFile = "$rootsDir/$userName.gcroot"; my $tmpRootFile = "$rootsDir/$userName-tmp.gcroot"; - open ROOT, ">$tmpRootFile" or die "cannot create `$tmpRootFile'"; + open ROOT, ">$tmpRootFile" or die "cannot create `$tmpRootFile': $!"; print ROOT "$storeExpr"; close ROOT; @@ -107,7 +107,7 @@ sub update { system "@bindir@/nix-env --import '$outPath'"; die "cannot pull set default Nix expression to `$outPath'" if ($? != 0); - rename $tmpRootFile, $rootFile or die "cannot rename `$tmpRootFile' to `$rootFile'"; + rename $tmpRootFile, $rootFile or die "cannot rename `$tmpRootFile' to `$rootFile': $!"; }