From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 28 Dec 1999 03:14:48 +0000 (+0000)
Subject: avoid "used once" warning
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1e4e2d84dee6a6634625ec755c8781353f441b00;p=p5sagit%2Fp5-mst-13.2.git

avoid "used once" warning

p4raw-id: //depot/perl@4722
---

diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm
index aff9b55..532505e 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 {