[PATCH] prefix-gnulib-mk: give better diagnostics

[Jim Meyering]

FYI, I hit one of these diagnostics a couple of months ago,
so improved them:

>From cbd4dafd96be16e8e727663decb1002883813483 Mon Sep 17 00:00:00 2001
From: Jim Meyering <address@hidden>
Date: Sun, 27 Jan 2013 09:54:55 -0800
Subject: [PATCH] prefix-gnulib-mk: give better diagnostics

* build-aux/prefix-gnulib-mk: Don't just "die".
Give better diagnostics upon failure.
---
 ChangeLog                  | 6 ++++++
 build-aux/prefix-gnulib-mk | 5 +++--
 2 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 0b9f30f..98d74d3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2013-01-27  Jim Meyering  <address@hidden>
+
+       prefix-gnulib-mk: give better diagnostics
+       * build-aux/prefix-gnulib-mk: Don't just "die".
+       Give better diagnostics upon failure.
+
 2013-03-13  Paul Eggert  <address@hidden>

        putenv: port to Solaris 10
diff --git a/build-aux/prefix-gnulib-mk b/build-aux/prefix-gnulib-mk
index 7553f65..4d0518f 100755
--- a/build-aux/prefix-gnulib-mk
+++ b/build-aux/prefix-gnulib-mk
@@ -189,10 +189,11 @@ sub process ($)
 {
   my ($file) = @_;
   my ($bak) = "$file.bak";
-  rename ($file, $bak) or die;
+  rename ($file, $bak) or die "$ME: rename $file $bak failed: $!\n";
   my $contents = contents ($bak);
   $contents = prefix ($contents);
-  my $out = new IO::File(">$file") or die;
+  my $out = new IO::File(">$file")
+    or die "$ME: $file: failed to open for writing: $!\n";
   print $out $contents;
 }

--
1.8.2