log ignored ports: with a ! in engine.log, and with full IGNORE message in

new log file ignored.log
This commit is contained in:
espie 2011-09-28 09:49:29 +00:00
parent 6a8b83abeb
commit 2256d26ac6

View File

@ -1,5 +1,5 @@
# ex:ts=8 sw=4:
# $OpenBSD: Engine.pm,v 1.26 2011/09/13 09:46:53 espie Exp $
# $OpenBSD: Engine.pm,v 1.27 2011/09/28 09:49:29 espie Exp $
#
# Copyright (c) 2010 Marc Espie <espie@openbsd.org>
#
@ -525,6 +525,11 @@ sub new_path
}
if (defined $v->{info}{IGNORE} &&
!$self->{state}->{fetch_only}) {
$self->log('!', $v);
my $fh = $self->{logger}->open('ignored');
print $fh $v->fullpkgpath, ": ",
$v->{info}{IGNORE}->string, "\n";
close $fh;
push(@{$self->{ignored}}, $v);
return;
}