From 4f7c11ce3d4f59ddf41b15eef5275289bc5ad1f3 Mon Sep 17 00:00:00 2001 From: Marc Espie Date: Sun, 27 May 2007 22:39:10 +0000 Subject: so save_old_libs becomes the first routine to handle full UpdateSets. --- usr.sbin/pkg_add/OpenBSD/Replace.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'usr.sbin/pkg_add/OpenBSD/Replace.pm') diff --git a/usr.sbin/pkg_add/OpenBSD/Replace.pm b/usr.sbin/pkg_add/OpenBSD/Replace.pm index d5e863e6056..82b8f851524 100644 --- a/usr.sbin/pkg_add/OpenBSD/Replace.pm +++ b/usr.sbin/pkg_add/OpenBSD/Replace.pm @@ -1,5 +1,5 @@ # ex:ts=8 sw=4: -# $OpenBSD: Replace.pm,v 1.21 2007/05/27 22:34:24 espie Exp $ +# $OpenBSD: Replace.pm,v 1.22 2007/05/27 22:39:09 espie Exp $ # # Copyright (c) 2004-2006 Marc Espie # @@ -361,8 +361,6 @@ sub save_old_libraries { my ($set, $state) = @_; - my $new_plist = $set->handle->{plist}; - for my $old_plist ($set->actual_replacements) { my $libs = {}; @@ -371,7 +369,9 @@ sub save_old_libraries print "Looking for changes in shared libraries\n" if $state->{beverbose}; $old_plist->mark_lib($libs, $p); - $new_plist->unmark_lib($libs, $p); + for my $n ($set->newer) { + $n->{plist}->unmark_lib($libs, $p); + } if (%$libs) { print "Libraries to keep: ", join(",", sort(keys %$libs)), "\n" -- cgit v1.2.3