diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-07-10 00:26:26 +0000 |
|---|---|---|
| committer | Charles Bailey <bailey@genetics.upenn.edu> | 1996-07-10 00:26:26 +0000 |
| commit | 1446e948ba18726fe1c1ab437e5f9a9a6a1f2ace (patch) | |
| tree | f660e6723a2f69bb6681e6526f0fd00b30c56870 /lib/diagnostics.pm | |
| parent | 16bb4654df736f4325b04851b91f4d13fb185fb2 (diff) | |
| download | perl-1446e948ba18726fe1c1ab437e5f9a9a6a1f2ace.tar.gz | |
Use ~-expanded version of privlib
Diffstat (limited to 'lib/diagnostics.pm')
| -rwxr-xr-x | lib/diagnostics.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm index 3560f2d708..f20b956b7d 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; |