X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fdiagnostics.pm;h=f20b956b7dc90c7d5a038e946921ce6345df6a48;hb=1446e948ba18726fe1c1ab437e5f9a9a6a1f2ace;hp=f40c51e03084bc8d902bb5e89e67d5e5522de5b9;hpb=6f48387a45abfd82047243df8cef453f08b23648;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm
index f40c51e..f20b956 100755
--- a/lib/diagnostics.pm
+++ b/lib/diagnostics.pm
@@ -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;