From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 23 Sep 1998 10:52:27 +0000 (+0000)
Subject: reset errno after C<require> search (as suggested by Larry)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d8bfb8bddf933a815b590823bd52295534e6ded0;p=p5sagit%2Fp5-mst-13.2.git

reset errno after C<require> search (as suggested by Larry)

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

diff --git a/pp_ctl.c b/pp_ctl.c
index da0f7a0..48a2ed2 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2674,6 +2674,8 @@ PP(pp_require)
 
 	RETPUSHUNDEF;
     }
+    else
+	errno = 0;
 
     /* Assume success here to prevent recursive requirement. */
     (void)hv_store(GvHVn(PL_incgv), name, strlen(name),