eval { use Cache::File; }; #### # fix for Cache::File BEGIN { if (!defined($ENV{LD_PRELOAD})) { $ENV{LD_PRELOAD} = '/usr/local/perl-5.8.7/lib/5.8.7/PA-RISC2.0/auto/DB_File/DB_File.sl'; my $me = "export LD_PRELOAD='$ENV{LD_PRELOAD}' && $0"; {exec $me} print STDERR "couldn't exec $me\n"; } elsif ($ENV{LD_PRELOAD} =~ /DB_File.sl/) { print "LD_PRELOAD is $ENV{LD_PRELOAD}\n"; } else { $ENV{LD_PRELOAD} = '/usr/local/perl-5.8.7/lib/5.8.7/PA-RISC2.0/auto/DB_File/DB_File.sl'.":$ENV{LD_PRELOAD}:" ; my $me = "export LD_PRELOAD='$ENV{LD_PRELOAD}' && $0"; {exec $me} print STDERR "couldn't exec $me\n"; } }