> From: Tom Pfau [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, August 09, 2000 9:36 AM
>
> Ok, thanks. That gets me past the compilation error. Now
> I'm getting the following:
>
> 1: ERROR: (while running): Can't locate loadable object for
> module DBI in
> @INC (@INC contains: /CRINOID_root/lib perl_root:[lib.VMS_AXP.5_6_0]
> perl_root:[lib] perl_root:[lib.site_perl.VMS_AXP]
> perl_root:[lib.site_perl]
> /perl_root/lib/site_perl .) at
> /perl_root/lib/site_perl/DBI.pm line 158
> 2: BEGIN failed--compilation aborted at
> /perl_root/lib/site_perl/DBI.pm line
> 158.
> 3: Compilation failed in require at
> /perl_root/lib/site_perl/DBI.pm line 4.
> 4: BEGIN failed--compilation aborted at
> /USERDISK3/PFAU/www-cgi/db.cgi line
> 4.
> 5: for script db.cgi
>
> Running this same script directly through the web server
> instead of through
> crinoid works fine.
I just went poking around in OYSTER.LOG trying to figure this out. It
turned up the following additional errors:
Use of uninitialized value in string eq at /perl_root/lib/AutoLoader.pm line
13.
Use of uninitialized value in string eq at /perl_root/lib/AutoLoader.pm line
13.
Use of uninitialized value in string eq at /perl_root/lib/AutoLoader.pm line
13.
Use of uninitialized value in string eq at /perl_root/lib/AutoLoader.pm line
14.
Use of uninitialized value in string eq at
/perl_root/lib/VMS_AXP/5_6_0/DynaLoader.pm line 55.
Use of uninitialized value in string eq at
/perl_root/lib/VMS_AXP/5_6_0/DynaLoader.pm line 56.
So I looked at AutoLoader.pm. The lines being complained about are:
$is_dosish = $^O eq 'dos' || $^O eq 'os2' || $^O eq 'MSWin32';
$is_vms = $^O eq 'VMS';
Looks like $^O (osname) isn't being passed to the safe environment.
*** script.pm_orig Wed Aug 9 10:54:30 2000
--- script.pm Wed Aug 9 10:49:13 2000
***************
*** 135,141 ****
%{$root."::INC"} = %INC;
my $expr = join('',@p);
$line = sprintf('package %s; use subs qw(exit); sub { %s ',
$root, $i
alarm);
! $line .= 'local $^A; local $^C; local $^F; local $^I; local $^O;
local
$^P;';
# $line .= 'local $#;'; ### causes weird problems ###
$line .= 'local $%;';
$line .= 'local $,;';
--- 135,142 ----
%{$root."::INC"} = %INC;
my $expr = join('',@p);
$line = sprintf('package %s; use subs qw(exit); sub { %s ',
$root, $i
alarm);
! $line .= 'local $^A; local $^C; local $^F; local $^I;';
! $line .= 'local $^O = "' . $^O . '"; local $^P;';
# $line .= 'local $#;'; ### causes weird problems ###
$line .= 'local $%;';
$line .= 'local $,;';
Thomas Pfau
[EMAIL PROTECTED]
aka [EMAIL PROTECTED]
http://www.eclipse.net/~pfau/
