more accurate require() pseudocode (from James P. Williams

<James.P.Williams@USAHQ.UnitedSpaceAlliance.com>)

p4raw-id: //depot/perl@4610

1 files changed, 2 insertions, 1 deletions

diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod
index 16da798a02..fa67babc57 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;
     }