perl 5.003_01: lib/splain

Use ~-expanded version of privlib
Add VMS support

diff --git a/lib/splain b/lib/splain
index f40c51e..f20b956 100755 (executable)
--- 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;