--- ./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