a few more details so that infodirs become useful.

1 files changed, 15 insertions, 2 deletions

diff --git a/usr.sbin/pkg_add/OpenBSD/PackingList.pm b/usr.sbin/pkg_add/OpenBSD/PackingList.pm
index 032a5a2aa53..996895759d1 100644
--- a/usr.sbin/pkg_add/OpenBSD/PackingList.pm
+++ b/usr.sbin/pkg_add/OpenBSD/PackingList.pm
@@ -1,5 +1,5 @@
 # ex:ts=8 sw=4:
-# $OpenBSD: PackingList.pm,v 1.67 2007/05/29 12:36:53 espie Exp $
+# $OpenBSD: PackingList.pm,v 1.68 2007/05/29 13:00:17 espie Exp $
 #
 # Copyright (c) 2003-2007 Marc Espie <espie@openbsd.org>
 #
@@ -61,10 +61,17 @@ sub new
 
 sub set_infodir
 {
-	my ($self, $dir) = shift;
+	my ($self, $dir) = @_;
+	$dir .= '/' unless $dir =~ m/\/$/;
 	${$self->{infodir}} = $dir;
 }
 
+sub infodir
+{
+	my $self = shift;
+	return ${$self->{infodir}}
+}
+
 sub read
 {
 	my ($a, $u, $code) = @_;
@@ -276,6 +283,12 @@ sub tofile
 	return 1;
 }
 
+sub save
+{
+	my $self = shift;
+	$self->tofile($self->infodir.CONTENTS);
+}
+
 sub add2list
 {
 	my ($plist, $object) = @_;