Re^2: problem with paths to library files

BEGIN {
my $path=$0;
$path=~s{[^\/]+$}{libs/};
}
use lib $path;
[download]

The "minor" problem with this is that the lexical $path will already be out of scope in the use lib $path; statement (so the (empty) global $path is being used instead...)

Moving the my $path; before the BEGIN block does work, though.

(Honestly, I'm somewhat surprised it does (you might argue the BEGIN block is being executed before the lexical is brought into existence - but apparently this is not the case...). Would any of the more knowledgable Monks care to comment on whether this is a feature you can rely on?)

Comment on Re^2: problem with paths to library files Select or Download Code

Replies are listed 'Best First'.
Re^3: problem with paths to library files by j_c (Novice) on Jan 17, 2007 at 11:24 UTC
I tried moving the `my $path` above the begin but it didn't work... however, we have succeeded with the following: `use vars qw/$RealDir/; BEGIN{ $0 =~ m/(.*\/)/;#location of this file $RealDir = $1 . "libs"; }; use lib "$RealDir";` [download] which works a treat. thanks guys, excellent advice :) all the best johnc	[reply] [d/l] [select]
Re^4: problem with paths to library files by almut (Canon) on Jan 17, 2007 at 12:52 UTC
I tried moving the `my $path` above the begin but it didn't work... Interesting... that's exactly the kind of thing I was worried about. I had tried: `#!/usr/bin/perl use strict; use warnings; my $path; BEGIN { $path = $0; $path =~ s{[^\/]+$}{libs/}; } use lib $path; use MyLib;` [download] With the module `./libs/MyLib.pm` being `package MyLib; printf "Module %s loaded.\n", __PACKAGE__;` [download] running the script prints `Module MyLib loaded.` [download] while commenting out the `use lib $path` gives the expected `Can't locate MyLib.pm in @INC ...` IOW, it works for me. `$ perl -v \| head -2 This is perl, v5.8.8 built for x86_64-linux-thread-multi` [download]	[reply] [d/l] [select]