so tags need some love to print out correctly

1 files changed, 17 insertions, 1 deletions

diff --git a/usr.sbin/pkg_add/pkg_mklocatedb b/usr.sbin/pkg_add/pkg_mklocatedb
index 84d67b96939..e22bd51a10c 100644
--- a/usr.sbin/pkg_add/pkg_mklocatedb
+++ b/usr.sbin/pkg_add/pkg_mklocatedb
@@ -1,6 +1,6 @@
 #! /usr/bin/perl
 # Copyright (c) 2005-2010 Marc Espie <espie@openbsd.org>
-# $OpenBSD: pkg_mklocatedb,v 1.43 2014/07/13 15:54:28 espie Exp $
+# $OpenBSD: pkg_mklocatedb,v 1.44 2018/06/25 17:00:46 espie Exp $
 #
 # Permission to use, copy, modify, and distribute this software for any
 # purpose with or without fee is hereby granted, provided that the above
@@ -101,6 +101,22 @@ sub print_name
 	    $self->keyword, " ", $self->{expanded}, "\n";
 }
 
+package OpenBSD::PackingElement::TagBase;
+sub print_name
+{
+	my ($self, $state) = @_;
+	print {$state->{out}} $state->{currentheader}, "\@". 
+	    join(' ', $self->keyword, $self->name, $self->{params}), "\n";
+}
+
+package OpenBSD::PackingElement::Tag;
+sub print_name
+{
+	my ($self, $state) = @_;
+	print {$state->{out}} $state->{currentheader}, "\@". 
+	    join(' ', $self->keyword, $self->name, $self->{expanded}), "\n";
+}
+
 package OpenBSD::PackingElement::DirBase;
 sub print_name
 {