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 (executable)
--- 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 = $_;