Add missing $! to error message when the log can't be opened.

diff --git a/Debian/Debhelper/Dh_Lib.pm b/Debian/Debhelper/Dh_Lib.pm
index badbe87ede4361d8a69b0ed4196a07a4b91a3209..d26b7ead75aa29e9d294400cedc4e83b5047dd3a 100644 (file)
--- a/Debian/Debhelper/Dh_Lib.pm
+++ b/Debian/Debhelper/Dh_Lib.pm
@@ -117,7 +117,7 @@ sub END {
                my $cmd=basename($0);
                foreach my $package (@{$dh{DOPACKAGES}}) {
                        my $ext=pkgext($package);
-                       open(LOG, ">>", "debian/${ext}debhelper.log") || error("failed to write to log");
+                       open(LOG, ">>", "debian/${ext}debhelper.log") || error("failed to write to log: $!");
                        print LOG $cmd."\n";
                        close LOG;
                }

diff --git a/debian/changelog b/debian/changelog
index e4d6ddb067dc852519bcd1d5afae465b56694434..193b6dfb6e30731fb580a1b60d2b38c1f4f624bd 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,6 +1,7 @@
 debhelper (7.0.3) UNRELEASED; urgency=low
 
   * dh: Fix man page typos. Closes: #477933
+  * Add missing $! to error message when the log can't be opened.
 
  -- Joey Hess <joeyh@debian.org>  Fri, 25 Apr 2008 16:30:49 -0400