2010-03-16T16:42:13 topeg

Code (perl): (dl )

1
2
3
4
5
6
7
8
9
10

[...]
my $icon_loaded;

sub BEGIN
{
  $icon_loaded=0;
  eval { use Text::Iconv; };
  $icon_loaded=1 unless($@);
}
[...]

1
2
3
4
5
6
7
8
9
10
11

my $icon_loaded;

BEGIN
{
    $icon_loaded = 0;
    if ( eval { require Text::Iconv } )
    {
        #Text::Iconv->import;
        $icon_loaded = 1;
    }
}