Re^2: Calculations before using lib;

in reply to Re: Calculations before using lib;
in thread Calculations before using lib;

hum... passing undef to lib? Fixed:

use FindBin qw($RealBin);

my @extra_libs;
BEGIN {
    if ($RealBin =~ /^(\/.+\/monkeyman\/bin)(\/.+)?/) {
        push @extra_libs, "$1/lib";
    }
}

use lib @extra_libs;
use MonkeyMan;
[download]

use FindBin qw($RealBin);

use lib ();
BEGIN {
    if ($RealBin =~ /^(\/.+\/monkeyman\/bin)(\/.+)?/) {
        import->lib("$1/lib");
    }
}

use MonkeyMan;
[download]

Note the switch to $RealBin in order to handle symlinks.

Comment on Re^2: Calculations before using lib; Select or Download Code

In Section Seekers of Perl Wisdom