I wrote the following script that fits my needs; maybe someone finds it useful,
maybe someone finds an error in it (if so, let me know - I tested it on OS X
and Win XP):
use File::Spec;
my ($volume,$softwaredir,$librarydir);
($volume,$softwaredir) = File::Spec->splitpath(__FILE__);
$librarydir = File::Spec->catpath($volume,$softwaredir,'libraries');
unshift (@INC,$librarydir);
@Gunnar Hjalmarsson:
> Sure, but note that you need to put it in a BEGIN block if you want it
> to happen at compile time.
>
> I'd suggest that you take this opportunity to check out the lib pragma.
>
> perldoc lib
>
> It's not rocket science. ;-)
Will do so for sure :-)
Thanks again for your help with this.
__________________________________________________________
Gesendet von Yahoo! Mail.
Dem pfiffigeren Posteingang.
http://de.overview.mail.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
