# HG changeset patch
# User Jim Meyering <meyering@fb.com>
# Date 1359309295 28800
# Node ID 6959449c25f60c20a8c823e90969a88015f2da9e
# Parent  2a9ec0103b3c2cb6259ff6013ba856a64b98ca6f
prefix-gnulib-mk: give better diagnostics

* build-aux/prefix-gnulib-mk: Don't just "die".
Give better diagnostics upon failure.

diff --git a/ChangeLog b/ChangeLog
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2013-01-27  Jim Meyering  <jim@meyering.net>
+
+	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  <eggert@cs.ucla.edu>
 
 	putenv: port to Solaris 10
diff --git a/build-aux/prefix-gnulib-mk b/build-aux/prefix-gnulib-mk
--- a/build-aux/prefix-gnulib-mk
+++ b/build-aux/prefix-gnulib-mk
@@ -189,10 +189,11 @@
 {
   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;
 }