diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-28 03:14:48 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-28 03:14:48 +0000 |
| commit | 1e4e2d84dee6a6634625ec755c8781353f441b00 (patch) | |
| tree | 70ee9439e30bf5f0e02e4634d1266b3eae13916d /lib | |
| parent | 59af875452bab7830a612945a2ac1c23c411527f (diff) | |
| download | perl-1e4e2d84dee6a6634625ec755c8781353f441b00.tar.gz | |
avoid "used once" warning
p4raw-id: //depot/perl@4722
Diffstat (limited to 'lib')
| -rwxr-xr-x | lib/diagnostics.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm index aff9b55786..532505e5d1 100755 --- a/lib/diagnostics.pm +++ b/lib/diagnostics.pm @@ -167,9 +167,11 @@ Tom Christiansen <F<tchrist@mox.perl.com>>, 25 June 1995. =cut -require 5.001; +require 5.005_64; use Carp; +$VERSION = v1.0; + use Config; ($privlib, $archlib) = @Config{qw(privlibexp archlibexp)}; if ($^O eq 'VMS') { @@ -377,7 +379,8 @@ if ($standalone) { } exit; } else { - $old_w = 0; $oldwarn = ''; $olddie = ''; + #$old_w = 0; + $oldwarn = ''; $olddie = ''; } sub import { |