Greetings,
Earlier today in Message-ID:
<[EMAIL PROTECTED]> I
put forth a patch intended to help win32 platforms which had as a
config.sh variable:
static_ext='DynaLoader'
to run and pass the t/lib/b-stash.t test. In Message-ID:
<[EMAIL PROTECTED]> Jarkko said: "Thanks, applied."
However, after the discussion with Andy Dougherty I realize that my
previous patch was incorrect and was accomodating an error in the
config.sh settings on win32. I intend to patch win32/config.w32 et al
to fix that problem, but in the mean time I would like to now request that
the previous patch be retracted and the enclosed patch applied to the
t/lib/b-stash.t test as it would have appeared in perl@9973.
I am sorry about the mix up and please rest assured that I am aware it was
all my fault for not having posed the "why doesn't unix have DynaLoader in
$static_ext?" question a bit more forcefully before having sent in that
original patch. Thank you for your patience.
diff -ru perl_9973/t/lib/b-stash.t perl/t/lib/b-stash.t
--- perl_9973/t/lib/b-stash.t Fri May 4 17:30:28 2001
+++ perl/t/lib/b-stash.t Fri May 4 17:30:41 2001
@@ -27,18 +27,25 @@
chomp($a = `$^X $path "-MB::Stash" "-Mwarnings" -e1`);
$a = join ',', sort split /,/, $a;
$a =~ s/-u(PerlIO|open)(?:::\w+)?,//g if defined $Config{'useperlio'} and
$Config{'useperlio'} eq 'define';
$a =~ s/-uWin32,// if $^O eq 'MSWin32';
$a =~ s/-u(Cwd|File|File::Copy|OS2),//g if $^O eq 'os2';
$a =~ s/-uCwd,// if $^O eq 'cygwin';
-if ($Config{static_ext} eq ' ') {
+if ($Is_VMS) {
+ $a =~ s/-uFile,-uFile::Copy,//;
+ $a =~ s/-uVMS,-uVMS::Filespec,//;
+ $a =~ s/-uSocket,//; # Socket is optional/compiler version dependent
+}
+if ($Config{static_ext} eq ' ' ||
+ ($Config{static_ext} eq 'Socket' && $Is_VMS)) {
$b = '-uCarp,-uCarp::Heavy,-uDB,-uExporter,-uExporter::Heavy,-uattributes,'
. '-umain,-ustrict,-uutf8,-uwarnings';
if (ord('A') == 193) { # EBCDIC sort order is qw(a A) not qw(A a)
$b = join ',', sort split /,/, $b;
}
- print "# [$a] vs [$b]\nnot " if $a ne $b;
+ print "# [$a]\n# vs.\n# [$b]\nnot " if $a ne $b;
ok;
} else {
print "ok $test # skipped: one or more static extensions\n"; $test++;
End of Patch.
Peter Prymmer
