tedu old PKG_PREFIX

[Marc Espie]

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 <es...@openbsd.org>
 #
@@ -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;