From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Tue, 8 Jun 1999 04:44:58 +0000 (-0400)
Subject: Setting $^E wipes out $!
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=048c1ddfd117b35fccfed36cb158c852c08324a0;p=p5sagit%2Fp5-mst-13.2.git

Setting $^E wipes out $!

	Message-Id: <199906080844.EAA03784@monk.mps.ohio-state.edu>

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

diff --git a/mg.c b/mg.c
index 8175982..a21ea57 100644
--- a/mg.c
+++ b/mg.c
@@ -1704,12 +1704,14 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg)
 #ifdef VMS
 	set_vaxc_errno(SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv));
 #else
-#ifdef WIN32
+#  ifdef WIN32
 	SetLastError( SvIV(sv) );
-#else
+#  else
+#    ifndef OS2
 	/* will anyone ever use this? */
 	SETERRNO(SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv), 4);
-#endif
+#    endif
+#  endif
 #endif
 	break;
     case '\006':	/* ^F */