I think I put this in for compatibility with the old tools years ago.
I don't think anyone still uses this, so this can probably die.
(I have run a grep thru the ports tree and the man pages, no reference at all)
okay ?
Index: OpenBSD/Delete.pm
===================================================================
RCS file: /build/data/openbsd/cvs/src/usr.sbin/pkg_add/OpenBSD/Delete.pm,v
retrieving revision 1.122
diff -u -p -r1.122 Delete.pm
--- OpenBSD/Delete.pm 30 Dec 2013 09:02:37 -0000 1.122
+++ OpenBSD/Delete.pm 31 Dec 2013 12:12:52 -0000
@@ -147,7 +147,6 @@ sub delete_plist
my $pkgname = $plist->pkgname;
$state->{pkgname} = $pkgname;
- $ENV{'PKG_PREFIX'} = $plist->localbase;
if (!$state->{size_only}) {
$plist->register_manpage($state);
manpages_unindex($state);
Index: OpenBSD/PkgAdd.pm
===================================================================
RCS file: /build/data/openbsd/cvs/src/usr.sbin/pkg_add/OpenBSD/PkgAdd.pm,v
retrieving revision 1.41
diff -u -p -r1.41 PkgAdd.pm
--- OpenBSD/PkgAdd.pm 31 Dec 2013 11:24:55 -0000 1.41
+++ OpenBSD/PkgAdd.pm 31 Dec 2013 12:13:07 -0000
@@ -1,7 +1,7 @@
#! /usr/bin/perl
# ex:ts=8 sw=4:
-# $OpenBSD: PkgAdd.pm,v 1.41 2013/12/31 11:24:55 espie Exp $
+# $OpenBSD: PkgAdd.pm,v 1.40 2013/12/25 14:38:15 espie Exp $
#
# Copyright (c) 2003-2010 Marc Espie <[email protected]>
#
@@ -134,15 +134,11 @@ sub handle_options
$state->{do_faked} = 1;
} elsif (defined $state->opt('B')) {
$state->{destdir} = $state->opt('B');
- } elsif (defined $ENV{'PKG_PREFIX'}) {
- $state->{destdir} = $ENV{'PKG_PREFIX'};
}
if (defined $state->{destdir}) {
$state->{destdir}.='/';
- $ENV{'PKG_DESTDIR'} = $state->{destdir};
} else {
$state->{destdir} = '';
- delete $ENV{'PKG_DESTDIR'};
}
@@ -729,8 +729,6 @@ sub really_add
# $replacing = 1;
# }
$state->{replacing} = $replacing;
-
- $ENV{'PKG_PREFIX'} = $state->{localbase};
my $handler = sub {
$state->{interrupted} = shift;
Index: OpenBSD/PkgCheck.pm
===================================================================
RCS file: /build/data/openbsd/cvs/src/usr.sbin/pkg_add/OpenBSD/PkgCheck.pm,v
retrieving revision 1.42
diff -u -p -r1.42 PkgCheck.pm
--- OpenBSD/PkgCheck.pm 25 Dec 2013 14:38:15 -0000 1.42
+++ OpenBSD/PkgCheck.pm 31 Dec 2013 12:13:16 -0000
@@ -316,15 +316,11 @@ sub handle_options
$self->{quick} = $self->opt('q');
if (defined $self->opt('B')) {
$self->{destdir} = $self->opt('B');
- } elsif (defined $ENV{'PKG_PREFIX'}) {
- $self->{destdir} = $ENV{'PKG_PREFIX'};
- }
+ }
if (defined $self->{destdir}) {
$self->{destdir} .= '/';
- $ENV{'PKG_DESTDIR'} = $self->{destdir};
} else {
$self->{destdir} = '';
- delete $ENV{'PKG_DESTDIR'};
}
}
Index: OpenBSD/PkgCreate.pm
===================================================================
RCS file: /build/data/openbsd/cvs/src/usr.sbin/pkg_add/OpenBSD/PkgCreate.pm,v
retrieving revision 1.76
diff -u -p -r1.76 PkgCreate.pm
--- OpenBSD/PkgCreate.pm 31 Dec 2013 11:21:10 -0000 1.76
+++ OpenBSD/PkgCreate.pm 31 Dec 2013 12:13:24 -0000
@@ -198,9 +198,7 @@ sub handle_options
my $base = '/';
if (defined $state->opt('B')) {
$base = $state->opt('B');
- } elsif (defined $ENV{'PKG_PREFIX'}) {
- $base = $ENV{'PKG_PREFIX'};
- }
+ }
$state->{base} = $base;
