diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-07-10 00:27:38 +0000 |
|---|---|---|
| committer | Charles Bailey <bailey@genetics.upenn.edu> | 1996-07-10 00:27:38 +0000 |
| commit | 6a1a169ff2a0027dfb0c2072045bcaf3258149b1 (patch) | |
| tree | 94466acc7853a98a6e1ab8ae3c5b5dca4bc44c52 /lib | |
| parent | 1ae80e7ea20219f1681bee8f2d082a290a0756ff (diff) | |
| download | perl-6a1a169ff2a0027dfb0c2072045bcaf3258149b1.tar.gz | |
perl 5.003_01: lib/splain
Use ~-expanded version of privlib
Add VMS support
Diffstat (limited to 'lib')
| -rwxr-xr-x | lib/splain | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/splain b/lib/splain index f40c51e030..f20b956b7d 100755 --- a/lib/splain +++ b/lib/splain @@ -3,7 +3,11 @@ eval 'exec perl -S $0 ${1+"$@"}' if 0; use Config; -$diagnostics::PODFILE= $Config{privlib} . "/pod/perldiag.pod"; +if ($^O eq 'VMS') { + $diagnostics::PODFILE = VMS::Filespec::unixify($Config{'privlibexp'}) . + '/pod/perldiag.pod'; +} +else { $diagnostics::PODFILE= $Config{privlibexp} . "/pod/perldiag.pod"; } package diagnostics; require 5.001; |