Jak zjistit pritomnost modulu?

[Honza Pazdziora]

On Mon, Jun 26, 2000 at 11:58:51AM +0200, Jindrich Kubec wrote:
> 
> Vim, ze je blby se ptat, kdyz to funguje, ale zajimal by me nazor
> nekoho, zda je to dobre (doopravdy bude import delat to, co si myslim) a
> zda to nejde udelat pekneji...
> 
> if ( !eval{ require Net::FTP; } )
> {
> 	#warn "Net::FTP not found!\n";
> 	$ftp_disabled = 1;
> }
> else
> {
> 	import Net::FTP;
> }

Ano, fungovat by to melo. Ale je mozne dat do evalu cely ten use:

	BEGIN { eval 'use Net::FTP;' $ftp_disabled = 1 if $@; }

-- 
------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
   .project: Perl, DBI, Oracle, MySQL, auth. WWW servers, MTB, Spain.
Petition for a Software Patent Free Europe http://petition.eurolinux.org
------------------------------------------------------------------------