From 49b9a9a9680bcb1eefb6f3d464ba30526b7df30a Mon Sep 17 00:00:00 2001 From: Marc Espie Date: Wed, 14 Oct 2009 13:46:26 +0000 Subject: add a few comments, finish killing kitchensink. --- usr.sbin/pkg_add/OpenBSD/Update.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'usr.sbin/pkg_add/OpenBSD/Update.pm') diff --git a/usr.sbin/pkg_add/OpenBSD/Update.pm b/usr.sbin/pkg_add/OpenBSD/Update.pm index de00ae5d00a..73df87d02f2 100644 --- a/usr.sbin/pkg_add/OpenBSD/Update.pm +++ b/usr.sbin/pkg_add/OpenBSD/Update.pm @@ -1,5 +1,5 @@ # ex:ts=8 sw=4: -# $OpenBSD: Update.pm,v 1.86 2009/10/14 11:08:16 espie Exp $ +# $OpenBSD: Update.pm,v 1.87 2009/10/14 13:46:25 espie Exp $ # # Copyright (c) 2004-2006 Marc Espie # @@ -34,7 +34,7 @@ sub new sub add_updateset { my ($self, $set, $handle, $location) = @_; - + my $n = OpenBSD::Handle->from_location($location); $set->add_newer($n); } @@ -48,7 +48,7 @@ sub process_handle print "Update to $pkgname already found\n"; return 0; } - + if ($pkgname =~ m/^(?:\.libs\d*|partial)\-/o) { $state->progress->clear; print "Not updating $pkgname, remember to clean it\n"; @@ -114,7 +114,7 @@ sub process_handle $self->add_updateset($set, $h, $l->[0]); return 1; } - if (defined $found && $found eq $l->[0] && + if (defined $found && $found eq $l->[0] && !$plist->uses_old_libs && !$state->{defines}->{installed}) { my $msg = "No need to update $pkgname"; $state->progress->message($msg); -- cgit v1.2.3