diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2006-05-19 00:14:15 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2006-05-19 00:14:15 +0000 |
| commit | 18d238e4a14a835312fdd656a58d80d51ab487e2 (patch) | |
| tree | 72d85e9c74bd7954d90905e313ab76ef80a9b200 /lib/diagnostics.pm | |
| parent | 30a1e583a8eba6a8430b7b3677331664508e6b0c (diff) | |
| download | perl-18d238e4a14a835312fdd656a58d80d51ab487e2.tar.gz | |
[perl #39141] lots of warnings with diagnostics and (warn or die)
stop C<use diagnostics; warn "\n"> outputing lots of 'uninit'
warnings.
p4raw-id: //depot/perl@28231
Diffstat (limited to 'lib/diagnostics.pm')
| -rwxr-xr-x | lib/diagnostics.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm index 11f0aadc30..e81581b007 100755 --- a/lib/diagnostics.pm +++ b/lib/diagnostics.pm @@ -562,6 +562,7 @@ sub splainthis { # but be aware of messsages containing " at this-or-that" my $real = 0; my @secs = split( / at / ); + return unless @secs; $_ = $secs[0]; for my $i ( 1..$#secs ){ if( $secs[$i] =~ /.+? (?:line|chunk) \d+/ ){ |