| 2 |
## $Id$ |
## $Id$ |
| 3 |
## ---------------------------------------------------------------------- |
## ---------------------------------------------------------------------- |
| 4 |
## $Log$ |
## $Log$ |
| 5 |
|
## Revision 1.14 2004/05/12 14:23:31 jonen |
| 6 |
|
## add comment/code related to PERL5LIB var at different OS's |
| 7 |
|
## |
| 8 |
## Revision 1.13 2003/12/05 05:02:08 joko |
## Revision 1.13 2003/12/05 05:02:08 joko |
| 9 |
## + minor update: disabled some unnecessary loggers or changed to debug-level |
## + minor update: disabled some unnecessary loggers or changed to debug-level |
| 10 |
## |
## |
| 420 |
#print "command: $cmd", "\n"; |
#print "command: $cmd", "\n"; |
| 421 |
|
|
| 422 |
# start process |
# start process |
| 423 |
# V1: via shortcut |
# 2004-05-11 - seems like only ONE args is valid at PERL5LIB, |
| 424 |
#$ENV{PERL5LIB} = join(' ', @INC); |
# so we use V2! |
| 425 |
|
# V1: join all args |
| 426 |
# FIXME!!! what about the other slots of @INC? |
#$ENV{PERL5LIB} = join(' ', @INC); |
| 427 |
|
# V2: insert only FIRST arg |
| 428 |
$ENV{PERL5LIB} = $INC[0]; |
$ENV{PERL5LIB} = $INC[0]; |
| 429 |
|
# WARNING: at (free)BSD our var is the SECOND, NOT FIRST!! |
| 430 |
|
# FIXME!! Do this in an abstract way!! |
| 431 |
|
#$ENV{PERL5LIB} = $INC[1]; |
| 432 |
|
|
| 433 |
#print Dumper(%ENV); |
#print Dumper(%ENV); |
| 434 |
|
|