Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Re^2: disable functions if module not installed

by lepetitalbert (Monsignor)
on Nov 03, 2008 at 22:28 UTC ( #721230=note: print w/replies, xml ) Need Help??

in reply to Re: disable functions if module not installed
in thread disable functions if module not installed

Hi kyle and chromatic,

yes, on a web server, the quotation mark is a typo in the post and yes I use strict and warnings.

while trying to write a minimal code it appears that even this doesn't work

#!/usr/bin/perl -w use strict; use warnings; use diagnostics; my $is_Magick = 0; eval "require Image::Magick"; if ($@) { # problems with GD, fall back to non-GD } else { # we have GD, go for it! $is_Magick = 1; } print "Content-type: text/html; charset=ISO-8859-1\n\n"; print $is_Magick;

without IM it prints 0, with IM, well :

[Mon Nov 03 23:21:35 2008] [error] [client] Deep recursion o +n subroutine "Image::Magick::AUTOLOAD" at\r [Mon Nov 03 23:21:35 2008] [error] [client] \tC:/usr/site/li +b/Image/ line 42 (#1)\r [Mon Nov 03 23:21:35 2008] [error] [client] (W recursion +) This subroutine has called itself (directly or indirectly)\r [Mon Nov 03 23:21:35 2008] [error] [client] 100 times mo +re than it has returned. This probably indicates an\r [Mon Nov 03 23:21:35 2008] [error] [client] infinite rec +ursion, unless you're writing strange benchmark programs, in\r [Mon Nov 03 23:21:35 2008] [error] [client] which case i +t indicates something else.\r [Mon Nov 03 23:21:35 2008] [error] [client] \r [Mon Nov 03 23:21:35 2008] [error] [client] Out of memory!


"There is only one good, namely knowledge, and only one evil, namely ignorance." Socrates

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://721230]
[marto]: I can relate to that somewhat, I'm a light sleeper and frequently get woken up by kids doing much the same as your cats
[jedikaiti]: Yea, the kids (& the cats) are good at that
talexb is having a hard time with Windows losing DNS info for Perlmonks when voting. CB works fine. Ugh.
[jedikaiti]: how odd

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (14)
As of 2017-07-25 15:14 GMT
Find Nodes?
    Voting Booth?
    I came, I saw, I ...

    Results (374 votes). Check out past polls.