diff options
author | Marc Espie <espie@cvs.openbsd.org> | 2007-05-30 16:32:15 +0000 |
---|---|---|
committer | Marc Espie <espie@cvs.openbsd.org> | 2007-05-30 16:32:15 +0000 |
commit | 3f253f61eca131987f384f2f3b77b6ac8a2262b2 (patch) | |
tree | c8d8c7773fefe2637903c688c7991eeb5f0d1a2d /usr.sbin/pkg_add/OpenBSD/PackingList.pm | |
parent | d6d5b8a14834bcf7c886975434ca4e9a7df71b6c (diff) |
simplify script handling a bit (they're going to disappear probably anyways).
Remove two passes visitors, we don't use them.
Diffstat (limited to 'usr.sbin/pkg_add/OpenBSD/PackingList.pm')
-rw-r--r-- | usr.sbin/pkg_add/OpenBSD/PackingList.pm | 25 |
1 files changed, 1 insertions, 24 deletions
diff --git a/usr.sbin/pkg_add/OpenBSD/PackingList.pm b/usr.sbin/pkg_add/OpenBSD/PackingList.pm index 2a8e5f919e7..110f0ad9c0f 100644 --- a/usr.sbin/pkg_add/OpenBSD/PackingList.pm +++ b/usr.sbin/pkg_add/OpenBSD/PackingList.pm @@ -1,5 +1,5 @@ # ex:ts=8 sw=4: -# $OpenBSD: PackingList.pm,v 1.71 2007/05/30 12:29:19 espie Exp $ +# $OpenBSD: PackingList.pm,v 1.72 2007/05/30 16:32:14 espie Exp $ # # Copyright (c) 2003-2007 Marc Espie <espie@openbsd.org> # @@ -361,21 +361,6 @@ sub is_signed return 0; } -{ - package OpenBSD::PackingList::Visitor; - sub new - { - my $class = shift; - bless {list=>[], pass=>1}, $class; - } - - sub revisit - { - my ($self, $item) = @_; - push(@{$self->{list}}, $item); - } -} - our @unique_categories = (qw(name no-default-conflict manual-installation extrainfo localbase arch)); @@ -390,10 +375,6 @@ sub visit { my ($self, $method, @l) = @_; - my $visitor = new OpenBSD::PackingList::Visitor; - - push(@l, $visitor); - if (defined $self->{cvstags}) { for my $item (@{$self->{cvstags}}) { $item->$method(@l); @@ -415,10 +396,6 @@ sub visit } } } - $visitor->{pass} = 2; - while (my $item = shift @{$visitor->{list}}) { - $item->$method(@l); - } } my $plist_cache = {}; |