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

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

p4raw-id: //depot/perl@4610

diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod
index 16da798..fa67bab 100644 (file)
--- 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;
     }