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;
}
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