From 16ba533515400205c7877b0cff33d6e7d6f57ad1 Mon Sep 17 00:00:00 2001 From: Marc Espie Date: Sun, 29 Apr 2007 11:09:30 +0000 Subject: replace $p->visit('method') calls with $p->method now that it works. --- usr.sbin/pkg_add/OpenBSD/Delete.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'usr.sbin/pkg_add/OpenBSD/Delete.pm') diff --git a/usr.sbin/pkg_add/OpenBSD/Delete.pm b/usr.sbin/pkg_add/OpenBSD/Delete.pm index 87db9f6c2f3..fa12878a932 100644 --- a/usr.sbin/pkg_add/OpenBSD/Delete.pm +++ b/usr.sbin/pkg_add/OpenBSD/Delete.pm @@ -1,5 +1,5 @@ # ex:ts=8 sw=4: -# $OpenBSD: Delete.pm,v 1.35 2007/04/15 10:17:29 espie Exp $ +# $OpenBSD: Delete.pm,v 1.36 2007/04/29 11:09:29 espie Exp $ # # Copyright (c) 2003-2007 Marc Espie # @@ -102,7 +102,7 @@ sub validate_plist($$) my $destdir = $state->{destdir}; $state->{problems} = 0; $state->{totsize} = 0; - $plist->visit('prepare_for_deletion', $state); + $plist->prepare_for_deletion($state); my $dir = installed_info($plist->pkgname()); for my $i (info_names()) { my $fname = $dir.$i; @@ -168,7 +168,7 @@ sub delete_plist if ($plist->has(DEINSTALL)) { $plist->get(DEINSTALL)->delete($state); } - $plist->visit('register_manpage', $state); + $plist->register_manpage($state); manpages_unindex($state); my $donesize = 0; for my $item (@{$plist->{groups}}, @{$plist->{users}}, @{$plist->{items}}) { -- cgit v1.2.3