view release on metacpan or  search on metacpan

lib/Apache/Voodoo/Loader.pm  view on Meta::CPAN

	# HERE BE THE BLACK MAGIC
	# perl stores the names of the loaded modules in here.
	# so, if you require the same module twice (or you change it on disk later)
	# perl consults this hash and doesn't reload it.
	# delete the entry, and perl will re-require the module from scratch
	#
	# We don't want to do this when the server is starting for the first time.  If
	# we're running multiple instances of the same application, then we're just
	# wasting time recompiling the same modules over and over, and "warnings" will
	# sometimes (uselessly) yell about modules being redefined.
	unless ($self->{'bootstrapping'}) {
		no warnings 'redefine';
		delete $INC{$file};
	}

	my $obj;
	eval {
		no warnings 'redefine';
		local $SIG{__DIE__};
		require $file;