don't bother dumping distfiles, history is quite enough

This commit is contained in:
espie 2013-01-28 10:50:46 +00:00
parent e06e006a3a
commit 11cd4c0c77
2 changed files with 2 additions and 14 deletions

View File

@ -1,7 +1,7 @@
#! /usr/bin/perl
# ex:ts=8 sw=4:
# $OpenBSD: dpb,v 1.80 2013/01/28 10:14:17 espie Exp $
# $OpenBSD: dpb,v 1.81 2013/01/28 10:50:46 espie Exp $
#
# Copyright (c) 2010 Marc Espie <espie@openbsd.org>
#
@ -745,9 +745,6 @@ my $occupied = 0;
if ($state->{all}) {
$state->engine->dump_dependencies;
if ($state->opt('f')) {
DPB::Distfile->dump($state->{logger});
}
if (!$state->defines('NO_HISTORY')) {
if ($state->grabber->expire_old_distfiles($core,
$state->opt('e'))) {

View File

@ -1,5 +1,5 @@
# ex:ts=8 sw=4:
# $OpenBSD: Fetch.pm,v 1.46 2013/01/13 14:03:20 espie Exp $
# $OpenBSD: Fetch.pm,v 1.47 2013/01/28 10:50:46 espie Exp $
#
# Copyright (c) 2010 Marc Espie <espie@openbsd.org>
#
@ -66,15 +66,6 @@ sub new
$cache->{$full} //= $class->create($full, $file, @r);
}
sub dump
{
my ($class, $logger) = @_;
my $log = $logger->create("fetch/distfiles");
for my $f (sort map {$_->{name}} grep {defined $_} values %$cache) {
print $log $f, "\n";
}
}
sub logname
{
my $self = shift;