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