perlquestion
bjdean
<p>Greetings folks,</p>
<p>I've recently come across a problem whereby I'd like to conditionally use 'use lib' (which doesn't work due to the early order of processing 'use' in compilation).</p>
<p>The question then, is there a better way then this:</p>
<pre>
BEGIN {
use Sys::Hostname;
if ( hostname() eq 'foo.bar.org' ) {
unshift @INC, ('/alternate/libdir');
} else {
unshift @INC, ('/default/libdir');
}
}
</pre>
<p>To achieve something close to to 'meaning' of:</p>
<pre>
BEGIN {
use Sys::Hostname;
if ( hostname() eq 'foo1.bar.org' ) {
use lib '/alternate/libdir';
} else {
use lib '/default/libdir';
}
}
</pre>