diff options
| author | Tim Bunce <Tim.Bunce@pobox.com> | 1997-10-15 15:55:26 +0000 |
|---|---|---|
| committer | Tim Bunce <Tim.Bunce@pobox.com> | 1997-10-15 15:55:26 +0000 |
| commit | 50e27ac33704d6fb34d4be7cfb426b2097b27505 (patch) | |
| tree | 0b92fcafbf7277d6096b994621b87c50f7988ff8 /lib/diagnostics.pm | |
| parent | 2269e8ecc334a5a77bdb915666547431c0171402 (diff) | |
| parent | fb73857aa0bfa8ed43d4d2f972c564c70a57e0c4 (diff) | |
| download | perl-50e27ac33704d6fb34d4be7cfb426b2097b27505.tar.gz | |
Maintenance 5.004_04 changes
p4raw-id: //depot/maint-5.004/perl@128
Diffstat (limited to 'lib/diagnostics.pm')
| -rwxr-xr-x[-rw-r--r--] | lib/diagnostics.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm index 10016f3bb7..78bf4457cb 100644..100755 --- a/lib/diagnostics.pm +++ b/lib/diagnostics.pm @@ -175,6 +175,8 @@ if ($^O eq 'VMS') { @trypod = ("$archlib/pod/perldiag.pod", "$privlib/pod/perldiag-$].pod", "$privlib/pod/perldiag.pod"); +# handy for development testing of new warnings etc +unshift @trypod, "./pod/perldiag.pod" if -e "pod/perldiag.pod"; ($PODFILE) = ((grep { -e } @trypod), $trypod[$#trypod])[0]; $DEBUG ||= 0; |