use SETERRNO() to reset errno (suggested by Charles Bailey)

p4raw-id: //depot/perl@1900

1 files changed, 1 insertions, 1 deletions

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),