diff options
| author | Gene Sullivan <perlbug-followup@perl.org> | 2009-12-14 14:07:27 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2009-12-14 14:07:27 +0100 |
| commit | 412147f664b7f5805591ad996d7e5a9e70b3d80f (patch) | |
| tree | c5ae6c635a45256d8df124490a4d306adc5a6be2 /lib/diagnostics.pm | |
| parent | 2653dd3c22bd18d7877da53d515dc31c46d8fbea (diff) | |
| download | perl-412147f664b7f5805591ad996d7e5a9e70b3d80f.tar.gz | |
[perl #71204] diagnostics.pm suppresses 'Use of uninitialized value in range (or flip)' warning
(and bump version of diagnostics.pm)
Diffstat (limited to 'lib/diagnostics.pm')
| -rw-r--r-- | lib/diagnostics.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm index d65df19ca2..721b466fd0 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); |