From: Gene Sullivan <perlbug-followup@perl.org>
Date: Mon, 14 Dec 2009 13:07:27 +0000 (+0100)
Subject: [perl #71204] diagnostics.pm suppresses 'Use of uninitialized value in range (or... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=412147f664b7f5805591ad996d7e5a9e70b3d80f;p=p5sagit%2Fp5-mst-13.2.git

[perl #71204] diagnostics.pm suppresses 'Use of uninitialized value in range (or flip)' warning

(and bump version of diagnostics.pm)
---

diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm
index d65df19..721b466 100644
--- a/lib/diagnostics.pm
+++ b/lib/diagnostics.pm
@@ -185,7 +185,7 @@ use 5.009001;
 use Carp;
 $Carp::Internal{__PACKAGE__.""}++;
 
-our $VERSION = '1.18';
+our $VERSION = '1.19';
 our $DEBUG;
 our $VERBOSE;
 our $PRETTY;
@@ -222,6 +222,7 @@ my $WHOAMI = ref bless [];  # nobody's business, prolly not even mine
 
 local $| = 1;
 my $_;
+local $.;
 
 my $standalone;
 my(%HTML_2_Troff, %HTML_2_Latin_1, %HTML_2_ASCII_7);