Quote string argument in example -- necessary if using strict subs

[perl5.git] / lib / diagnostics.pm

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