From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 7 Mar 2007 11:00:07 +0000 (+0000)
Subject: Localize $! in splainthis() too. (see bug #41717)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2a6a970fa1b36c99c83fd3fdd48253c1b567db9b;p=p5sagit%2Fp5-mst-13.2.git

Localize $! in splainthis() too. (see bug #41717)

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

diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm
index 482fe28..68253fc 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 = $_;