From f784dfa3907dda58a76b5d8c67d99274984dc87a Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 1 Dec 1999 19:09:31 +0000
Subject: [PATCH] more accurate require() pseudocode (from James P. Williams
 <James.P.Williams@USAHQ.UnitedSpaceAlliance.com>)

p4raw-id: //depot/perl@4610
---
 pod/perlfunc.pod | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod
index 16da798..fa67bab 100644
--- a/pod/perlfunc.pod
+++ b/pod/perlfunc.pod
@@ -3424,15 +3424,16 @@ subroutine:
 	    foreach $prefix (@INC) {
 		$realfilename = "$prefix/$filename";
 		if (-f $realfilename) {
+		    $INC{$filename} = $realfilename;
 		    $result = do $realfilename;
 		    last ITER;
 		}
 	    }
 	    die "Can't find $filename in \@INC";
 	}
+	delete $INC{$filename} if $@ || !$result;
 	die $@ if $@;
 	die "$filename did not return true value" unless $result;
-	$INC{$filename} = $realfilename;
 	return $result;
     }
 
-- 
2.7.4