remove outdated comment

use progress->for_list
This commit is contained in:
espie 2010-07-12 20:19:40 +00:00
parent 95ea61be00
commit 7ff9f33df5

View File

@ -1,6 +1,6 @@
#!/usr/bin/perl #!/usr/bin/perl
# $OpenBSD: check-lib-depends,v 1.27 2010/06/30 11:11:19 espie Exp $ # $OpenBSD: check-lib-depends,v 1.28 2010/07/12 20:19:40 espie Exp $
# Copyright (c) 2004-2010 Marc Espie <espie@openbsd.org> # Copyright (c) 2004-2010 Marc Espie <espie@openbsd.org>
# #
# Permission to use, copy, modify, and distribute this software for any # Permission to use, copy, modify, and distribute this software for any
@ -15,8 +15,6 @@
# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF # ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
# OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. # OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
# check all packages in the current directory, and report library issues
use strict; use strict;
use warnings; use warnings;
@ -82,6 +80,7 @@ sub extracted_name
my ($self, $item) = @_; my ($self, $item) = @_;
return $self->{location}.$item->fullname; return $self->{location}.$item->fullname;
} }
sub retrieve sub retrieve
{ {
my ($self, $state, $item) = @_; my ($self, $state, $item) = @_;
@ -786,12 +785,10 @@ sub main
if (@ARGV == 0 && ($state->{destdir} ne '/' || $state->{source})) { if (@ARGV == 0 && ($state->{destdir} ne '/' || $state->{source})) {
$self->do_plist($state); $self->do_plist($state);
} else { } else {
my $i = 0; $state->progress->for_list("Scanning", \@ARGV,
$state->progress->set_header("Scanning"); sub {
for my $pkgname (@ARGV) { $self->do_pkg($state, shift);
$state->progress->show(++$i, scalar @ARGV); });
$self->do_pkg($state, $pkgname);
}
} }
exit($state->{errors} ? 1 : 0); exit($state->{errors} ? 1 : 0);