diff options
| -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; |