From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Wed, 10 Jul 1996 00:26:26 +0000 (+0000)
Subject: Use ~-expanded version of privlib
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1446e948ba18726fe1c1ab437e5f9a9a6a1f2ace;p=p5sagit%2Fp5-mst-13.2.git

Use ~-expanded version of privlib
---

diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm
index 3560f2d..f20b956 100755
--- a/lib/diagnostics.pm
+++ b/lib/diagnostics.pm
@@ -4,10 +4,10 @@ eval 'exec perl -S $0  ${1+"$@"}'
 
 use Config;
 if ($^O eq 'VMS') {
-   $diagnostics::PODFILE = VMS::Filespec::unixify($Config{'privlib'}) .
+   $diagnostics::PODFILE = VMS::Filespec::unixify($Config{'privlibexp'}) .
                            '/pod/perldiag.pod';
 }
-else { $diagnostics::PODFILE= $Config{privlib} . "/pod/perldiag.pod"; }
+else { $diagnostics::PODFILE= $Config{privlibexp} . "/pod/perldiag.pod"; }
 
 package diagnostics;
 require 5.001;