[prev in list] [next in list] [prev in thread] [next in thread] 

List:       perl5-porters
Subject:    [ID 19991029.004] Correct documentation of require's handling of %INC
From:       "M.J.T. Guy" <mjtg () cus ! cam ! ac ! uk>
Date:       1999-10-29 17:39:03
[Download RAW message or body]

Jim Williams <james.p.williams@usahq.unitedspacealliance.com> has
pointed out on c.l.p.moderated the following correction for the
documentation of how 'require' handles %INC.


Mike Guy

--- ./pod/perlfunc.pod.orig	Wed Oct 13 17:13:36 1999
+++ ./pod/perlfunc.pod	Fri Oct 29 17:35:20 1999
@@ -3411,15 +3411,16 @@
 	    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;
     }
 

End of patch

[prev in list] [next in list] [prev in thread] [next in thread]