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-27 15:13:55 -0500 |
commit | 607c7aa2926606786747cee611012fd9602d15d9 (patch) | |
tree | 2d0b07ccba4b36bb52fd0e26415dd9a3f067377c | |
parent | c75b574263d91c9c2cff59229550e893dec4fbc8 (diff) |
use Dh_Lib write_log
(cherry picked from commit 9d700975929417fe72bf46271c694ccb09d1c905)
-rwxr-xr-x | dh | 14 |
1 files changed, 4 insertions, 10 deletions
@@ -376,7 +376,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 @@ -470,7 +470,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); } } } @@ -489,15 +489,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(@_); } { |