diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-03-07 11:00:07 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-03-07 11:00:07 +0000 |
| commit | 2a6a970fa1b36c99c83fd3fdd48253c1b567db9b (patch) | |
| tree | 2d2d62708b71cd43579fe7652b0e94c8426c819b /lib/diagnostics.pm | |
| parent | d923656e4b61a7a7e564dd4edbad177cdcd7f475 (diff) | |
| download | perl-2a6a970fa1b36c99c83fd3fdd48253c1b567db9b.tar.gz | |
Localize $! in splainthis() too. (see bug #41717)
p4raw-id: //depot/perl@30492
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 482fe28214..68253fcb35 100755 --- a/lib/diagnostics.pm +++ b/lib/diagnostics.pm @@ -549,6 +549,7 @@ sub splainthis { return 0 if $TRACEONLY; $_ = shift; local $\; + local $!; ### &finish_compilation unless %msg; s/\.?\n+$//; my $orig = $_; |