let the tag logic migrate into state for running atend,

have expand work on the appropriate string

1 files changed, 11 insertions, 1 deletions

diff --git a/usr.sbin/pkg_add/OpenBSD/Delete.pm b/usr.sbin/pkg_add/OpenBSD/Delete.pm
index 6c3829dbcc9..4e6d7ab911a 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.153 2018/06/20 10:15:42 espie Exp $
+# $OpenBSD: Delete.pm,v 1.154 2018/06/22 13:58:55 espie Exp $
 #
 # Copyright (c) 2003-2014 Marc Espie <espie@openbsd.org>
 #
@@ -374,6 +374,16 @@ sub should_run
 	return $state->replacing;
 }
 
+package OpenBSD::PackingElement::Tag;
+sub delete
+{
+	my ($self, $state) = @_;
+
+	for my $d (@{$self->{definition_list}}) {
+		$d->add_tag($self, "delete", $state);
+	}
+}
+
 package OpenBSD::PackingElement::FileBase;
 use OpenBSD::Error;