From: Raphael Hertzog <hertzog@debian.org>
Date: Fri, 27 Jun 2008 17:52:28 +0000 (+0200)
Subject: install-info: Improve error message when the file doesn't exist
X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=36f5254656783b0e87c24736f16f1f01a81449dd;p=dpkg

install-info: Improve error message when the file doesn't exist
---

diff --git a/ChangeLog b/ChangeLog
index 683dbc4b..93ab79c1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2008-06-27  Raphael Hertzog  <hertzog@debian.org>
+
+	* scripts/install-info.pl: Improve error message when the
+	info file doesn't exist.
+
 2008-06-23  Raphael Hertzog  <hertzog@debian.org>
 
 	* scripts/dpkg-source.pl: New option --require-valid-signature.
diff --git a/debian/changelog b/debian/changelog
index 3cd700b3..ba8bb4dc 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -56,6 +56,8 @@ dpkg (1.15.0) UNRELEASED; urgency=low
   * Add new option --require-valid-signature to dpkg-source. Closes: #390282
   * In dpkg-query(1) document the origin of the various fields and warn that
     they are not always available. Closes: #488293
+  * Improve error message in install-info when the file doesn't exist.
+    Thanks to Thomas Hood <jdthood@yahoo.co.uk>. Closes: #107098
 
   [ Pierre Habouzit ]
   * Add a --query option to update-alternatives. Closes: #336091, #441904
diff --git a/scripts/install-info.pl b/scripts/install-info.pl
index c65a6b09..6377788e 100755
--- a/scripts/install-info.pl
+++ b/scripts/install-info.pl
@@ -156,8 +156,10 @@ if (!$remove) {
 
     if (!-f $filename && -f "$filename.gz" || $filename =~ s/\.gz$//) {
         $filename= "gzip -cd <$filename.gz |";  $pipeit= 1;
-    } else {
+    } elsif (-f $filename) {
         $filename= "< $filename";
+    } else {
+        die "$progname: File $filename not found\n";
     }
 
     if (!length($description)) {