On Solaris, changing LD_LIBRARY_PATH from within a process doesn't work, because the dynamic linker is caching the info. In other words, you have to set it before, e.g. in a shell wrapper, or some such. Fork-and-exec (as opposed to simply forking) should also work though, I suppose.

Update: As to re-exec-ing yourself, here's one way you could do it (tested on Solaris 10):

#!/usr/bin/perl

BEGIN {
    my $orahome = "/path/to/orahome";
    my $oralib  = "$orahome/lib";
    unless ($ENV{LD_LIBRARY_PATH} =~ /$oralib/) {
        $ENV{ORACLE_HOME}     = $orahome;
        $ENV{LD_LIBRARY_PATH} = $oralib;
        exec $0, @ARGV;
    }
}
use DBD::Oracle;
[download]

Thanks almut! I was close. Instead of this:

        $ENV{ORACLE_HOME}     = $orahome;
        $ENV{LD_LIBRARY_PATH} = $oralib;
        exec $0, @ARGV;
[download]


I was trying this:

        exec("export ORACLE_HOME=$orahome LD_LIBRARY_PATH=$oralib;
              $0");
[download]


Thanks again, your solution works.

Thank you, perrin. I tried this:



#!/usr/bin/perl
BEGIN {
    #$ENV{'ORACLE_HOME'}  = '/path/to/orahome';
    #$ENV{'LD_LIBRARY_PATH'} = '/path/to/orahome/lib';
    system("export ORACLE_HOME=/path/to/orahome");
    system("export LD_LIBRARY_PATH=/path/to/orahome/lib");
};
use DBI;
[download]

I still get the error using the two system calls or the two $ENV assignments. Any other thoughts?

Because you've commented out the two lines that might have done something and instead started two subshells in which you modify the environment (and then those subshells promptly exit making no difference whatsoever in the parent or any of its descendants).

The cake is a lie.
The cake is a lie.
The cake is a lie.