X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fdiagnostics.pm;h=3560f2d708ddd95c9e21129eda7f0ea223c0ac68;hb=d57fa8b6af39ea3eaa99a66e02134fdf61adb746;hp=23a93e50745bcc49c944ef23d89c9f0261946b5c;hpb=d9ae0549186b1b8a911e36cf4bb7e2f7ad0e1112;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm
index 23a93e5..3560f2d 100755
--- a/lib/diagnostics.pm
+++ b/lib/diagnostics.pm
@@ -3,7 +3,7 @@ eval 'exec perl -S $0  ${1+"$@"}'
     if 0;
 
 use Config;
-if ($Config{'osname'} eq 'VMS') {
+if ($^O eq 'VMS') {
    $diagnostics::PODFILE = VMS::Filespec::unixify($Config{'privlib'}) .
                            '/pod/perldiag.pod';
 }