diff options
author | Joey Hess <joey@gnu.kitenet.net> | 2009-02-17 13:35:46 -0500 |
---|---|---|
committer | Joey Hess <joey@gnu.kitenet.net> | 2009-02-17 13:35:46 -0500 |
commit | 9d700975929417fe72bf46271c694ccb09d1c905 (patch) | |
tree | d51efffa64201e9d47e19862e0b100e77e255025 /dh | |
parent | 58c92e7d43f7bb58f4ffbbf613b47e6f6c0ff77d (diff) | |
download | debhelper-9d700975929417fe72bf46271c694ccb09d1c905.tar.gz |
use Dh_Lib write_log
Diffstat (limited to 'dh')
-rwxr-xr-x | dh | 14 |
1 files changed, 4 insertions, 10 deletions
@@ -385,7 +385,7 @@ foreach my $package (@packages) { # no commands remain to run after it, communicating to # future dh instances that the specified command should not # be run again. - writelog($package, $sequence[$startpoint{$package}-1]); + writelog($sequence[$startpoint{$package}-1], $package); } elsif ($dh{REMAINING}) { # Start at the beginning so all remaining commands will get @@ -479,7 +479,7 @@ sub run { # been run by the rules file target. my %packages=map { $_ => 1 } @packages; map { delete $packages{$_} } @exclude; - Debian::Debhelper::Dh_Lib::write_log($override_command, keys %packages); + writelog($override_command, keys %packages); } } } @@ -498,15 +498,9 @@ sub loadlog { close LOG; return @log; } - + sub writelog { - my $package=shift; - my $cmd=shift; - my $ext=pkgext($package); - - open(LOG, ">>", "debian/${ext}debhelper.log") || error("failed to write to log"); - print LOG $cmd."\n"; - close LOG; + Debian::Debhelper::Dh_Lib::write_log(@_); } { |