http://qs321.pair.com?node_id=721233


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

Hi almut and pileofrogs,

almut your code gave me an out of memory too.

pileofrogs fatalstobrowser is on. An example of one of these block eval's ?

Thank you.

"There is only one good, namely knowledge, and only one evil, namely ignorance." Socrates
  • Comment on Re^2: disable functions if module not installed

Replies are listed 'Best First'.
Re^3: disable functions if module not installed
by almut (Canon) on Nov 03, 2008 at 22:51 UTC
    almut your code gave me an out of memory too.

    Weird.  Can you just plain load the module with use Image::Magick; (or require Image::Magick;)?  In case the machine (or user limit) doesn't provide sufficient memory to load the module (which in theory could be possible), I'd expect that you get "out of memory" either way.

    An example of one of these block eval's ? 
    eval { require Image::Magick };
my $is_magick = $@ ? 0 : 1;

    [download]
[reply]
[d/l]
[select]

      Hi again

      use Image::Magick; works like a charm, am using it for weeks.

      eval { require Image::Magick };

my $is_Magick = $@ ? 0 : 1;

      [download]

      produces out of memory too :(

      I have : XP, 2Gb ram, perl 5.10, IM 6.4.4-2, PerlMagick installed with IM installer

      Thanls again.

      "There is only one good, namely knowledge, and only one evil, namely ignorance." Socrates
[reply]
[d/l]
        produces out of memory too

        This doesn't make much sense, as the eval { ... } is essentially also just loading the module (or trying to), only with fatal errors trapped.

        I have : XP, 2Gb ram, perl 5.10, IM 6.4.4-2, PerlMagick

        This is your web server machine, is it?

[reply]
[d/l]
Re^3: disable functions if module not installed
by pileofrogs (Priest) on Nov 03, 2008 at 22:50 UTC

    Read up on eval in [perlfunc].

    Short answer:

    Block

    eval { die "You commie!" };

    [download]

    String

    my $death = 'die';
eval "$death \"You commie!\";"

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom