Okay, I think I see the real problem; @INC is hidden from the Safe
partition, so it's not defined/empty during the compile. (Odd that perl
would be checking at compile time too...)
Anyway, here's a patch to OYSTER and SCRIPT.PM that (a)copies @INC
and %INC into the Safe partition, and (b) imports the $" default value.
I haven't gotten DBI 1.14 to build, some trivial error in the DESCRIP.MMS,
but you can "use Dynaloader" in a script and it doesn't bomb.
Patch follows:
--- oyster.orig Wed Aug 9 05:47:39 2000
+++ oyster. Wed Aug 9 05:41:37 2000
@@ -288,7 +288,7 @@
*{$name."::STDERR"} = \*main::STDERR;
*{$name."::stderr"} = \*main::STDERR;
${$name."::/"} = "\n";
-# ${$name.'::"'} = ' ';
+ ${$name.'::"'} = ' ';
${$name.'::$'} = sprintf('%04X%04X',$Script::safeid,time & 0xFFFF); #
fake PID
${$name.'::0'} = "$dir/$script";
*{$name.'::exit'} = \&ExitSub;
--- script.pm-orig Wed Aug 9 05:48:47 2000
+++ script.pm Wed Aug 9 05:45:27 2000
@@ -131,6 +131,8 @@
}
}
+ @{$root."::INC"} = @INC;
+ %{$root."::INC"} = %INC;
my $expr = join('',@p);
$line = sprintf('package %s; use subs qw(exit); sub { %s ', $root, $ialarm);
$line .= 'local $^A; local $^C; local $^F; local $^I; local $^O; local $^P;';
--
Drexel University \V --Chuck Lane
======]---------->--------*------------<-------[===========
(215) 895-1545 _/ \ Particle Physics
FAX: (215) 895-5934 /\ /~~~~~~~~~~~ [EMAIL PROTECTED]
