also log the fullpkgpath, no need to go look in the lock proper for that.

This commit is contained in:
espie 2012-02-21 10:37:26 +00:00
parent b34e24d32f
commit b4dfd43424

View File

@ -1,5 +1,5 @@
# ex:ts=8 sw=4:
# $OpenBSD: Fetch.pm,v 1.36 2012/02/20 16:38:23 espie Exp $
# $OpenBSD: Fetch.pm,v 1.37 2012/02/21 10:37:26 espie Exp $
#
# Copyright (c) 2010 Marc Espie <espie@openbsd.org>
#
@ -91,7 +91,7 @@ sub simple_lockname
&lockname;
}
# should be used for rebuild_info only
# should be used for rebuild_info and logging only
sub fullpkgpath
{
@ -748,6 +748,10 @@ sub new
logger => $logger,
log => $logger->make_distlogs($file),
}, $class;
if (open my $fh, '>>', $job->{log}) {
print $fh ">>> From ", $file->fullpkgpath, "\n";
close $fh;
}
File::Path::mkpath(File::Basename::dirname($file->filename));
$job->{watched} = DPB::Watch->new($file->tempfilename,
$file->{sz}, undef, $job->{started});