diff options
author | Marc Espie <espie@cvs.openbsd.org> | 2009-10-15 10:45:48 +0000 |
---|---|---|
committer | Marc Espie <espie@cvs.openbsd.org> | 2009-10-15 10:45:48 +0000 |
commit | 79c5d277257cd0dd954ca3aea4805f704391bea8 (patch) | |
tree | 383d07ad5e5ee1fdeb1d3d51fe4c83350ec86efa /usr.sbin/pkg_add/OpenBSD/UpdateSet.pm | |
parent | 071c67a432b2772d433712002c7698df9ff0087f (diff) |
let handle compute pkgnames correctly, simplifies code a bit
Diffstat (limited to 'usr.sbin/pkg_add/OpenBSD/UpdateSet.pm')
-rw-r--r-- | usr.sbin/pkg_add/OpenBSD/UpdateSet.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/usr.sbin/pkg_add/OpenBSD/UpdateSet.pm b/usr.sbin/pkg_add/OpenBSD/UpdateSet.pm index 432eebe79ee..ce651f2e8ac 100644 --- a/usr.sbin/pkg_add/OpenBSD/UpdateSet.pm +++ b/usr.sbin/pkg_add/OpenBSD/UpdateSet.pm @@ -1,5 +1,5 @@ # ex:ts=8 sw=4: -# $OpenBSD: UpdateSet.pm,v 1.8 2009/10/14 22:59:34 espie Exp $ +# $OpenBSD: UpdateSet.pm,v 1.9 2009/10/15 10:45:47 espie Exp $ # # Copyright (c) 2007 Marc Espie <espie@openbsd.org> # @@ -131,7 +131,7 @@ sub add_older { my $self = shift; for my $h (@_) { - $self->{older}->{$h->{pkgname}} = $h; + $self->{older}->{$h->pkgname} = $h; } return $self; } @@ -157,7 +157,7 @@ sub older_names sub newer_names { my $self =shift; - return map {$_->{pkgname}} $self->newer; + return map {$_->pkgname} $self->newer; } sub older_to_do @@ -169,7 +169,7 @@ sub older_to_do require OpenBSD::PackageInfo; my @l = (); for my $h ($self->older) { - if (OpenBSD::PackageInfo::is_installed($h->{pkgname})) { + if (OpenBSD::PackageInfo::is_installed($h->pkgname)) { push(@l, $h); } } |