[PATCH lib/diagnostics.pm 5.005_62] syntax error!!

[p5pRT]

Migrated from rt.perl.org#1914 (status was 'resolved')

Searchable as RT1914$

[p5pRT]

From @schwern

String found where operator expected at /usr/local/perl5.005_62/lib/5.00562/diagnostics.pm line 184, near ""$archlib/pods/perldiag.pod""

While I'm at it I stuck in a $VERSION and "fixed" a "used only once"
for $old_w.

--- lib/diagnostics.pm 1999/12/17 20​:44​:34
+++ lib/diagnostics.pm 1999/12/17 20​:46​:29
@​@​ -170,6 +170,8 @​@​
require 5.001;
use Carp;

+$VERSION=1.00;
+
use Config;
($privlib, $archlib) = @​Config{qw(privlibexp archlibexp)};
if ($^O eq 'VMS') {
@​@​ -180,7 +182,7 @​@​
@​trypod = (
  "$archlib/pod/perldiag.pod",
  "$privlib/pod/perldiag-$].pod",
- "$privlib/pod/perldiag.pod"
+ "$privlib/pod/perldiag.pod",
  "$archlib/pods/perldiag.pod",
  "$privlib/pods/perldiag-$].pod",
  "$privlib/pods/perldiag.pod"
@​@​ -377,6 +379,8 @​@​
  exit;
} else {
  $old_w = 0; $oldwarn = ''; $olddie = '';
+ # Shut up a "used only once" warning.
+ () = $old_w;
}

sub import {