From aba27d8868c4da5501a93098d949549307dd9a6a Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 2 Oct 1998 01:02:09 +0000
Subject: use SETERRNO() to reset errno (suggested by Charles Bailey)

p4raw-id: //depot/perl@1900
---
 pp_ctl.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'pp_ctl.c')

diff --git a/pp_ctl.c b/pp_ctl.c
index 7fcdf3de51..eb5e3c2ef8 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2686,7 +2686,7 @@ PP(pp_require)
 	RETPUSHUNDEF;
     }
     else
-	errno = 0;
+	SETERRNO(0, SS$_NORMAL);
 
     /* Assume success here to prevent recursive requirement. */
     (void)hv_store(GvHVn(PL_incgv), name, strlen(name),
-- 
cgit v1.2.1