if 0;
use Config;
-$diagnostics::PODFILE= $Config{privlib} . "/pod/perldiag.pod";
+if ($Config{'osname'} eq 'VMS') {
+ $diagnostics::PODFILE = VMS::Filespec::unixify($Config{'privlib'} .
+ '/pod/perldiag.pod';
+}
+else { $diagnostics::PODFILE= $Config{privlib} . "/pod/perldiag.pod"; }
package diagnostics;
require 5.001;