Restore errno after having read $^E (like for $!)

to preserve errno from unfortunate side-effects.

p4raw-id: //depot/perl@21743

1 files changed, 6 insertions, 2 deletions

diff --git a/mg.c b/mg.c
index 245acd7fb2..494a4e2bed 100644
--- a/mg.c
+++ b/mg.c
@@ -623,8 +623,12 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg)
 		  SetLastError(dwErr);
 	     }
 #else
-	     sv_setnv(sv, (NV)errno);
-	     sv_setpv(sv, errno ? Strerror(errno) : "");
+	     {
+		 int saveerrno = errno;
+		 sv_setnv(sv, (NV)errno);
+		 sv_setpv(sv, errno ? Strerror(errno) : "");
+		 errno = saveerrno;
+	     }
 #endif
 #endif
 #endif