My smoker reports are looking good. I seem to be doing better
with a cygwin rxvt shell than the MinGW MSYS one.
I only had to patch Test::Smoke in two places to get this far,
besides some fiddling with the smokecurrent.cmd files.
The problems with the hanging tests will reappear,
I expect, however, when the builds get as far as the testing stage.
The first patch, I don't think there will be any objection to.
--- Test/Smoke/Util.pm.orig 2004-02-05 15:13:08.000000000 +0800
+++ Test/Smoke/Util.pm 2004-02-02 10:11:46.000000000 +0800
@@ -174,6 +174,7 @@
"-DCCHOME" => "CCHOME",
"-DCRYPT_SRC" => "CRYPT_SRC",
"-DCRYPT_LIB" => "CRYPT_LIB",
+ "-DIS_WIN95" => "IS_WIN95",
);
# %opts hash-values:
# undef => leave option as-is when no override (makefile default)
@@ -199,6 +200,7 @@
CCHOME => undef,
CRYPT_SRC => undef,
CRYPT_LIB => undef,
+ IS_WIN95 => 0,
);
# my $def_re = qr/((?:(?:PERL|USE)_\w+)|BCCOLD)/;
my $def_re = '((?:(?:PERL|USE)_\w+)|BCCOLD)';
The second patch is to allow use of the Nick Clark forest,
rather than distclean, which can be very time-consuming.
Link isn't implemented on original FAT-file-system Win32 platforms,
nor on Mac, VMS. For me, the original code dies with an error
message about link not being implemented.
--- Test/Smoke/Syncer.pm.orig 2004-02-05 15:16:17.000000000 +0800
+++ Test/Smoke/Syncer.pm 2004-02-05 15:16:37.000000000 +0800
@@ -1131,7 +1131,7 @@
} else {
-e $dest and 1 while unlink $dest;
$self->{v} > 1 and print "link $_ $dest";
- my $ok = link $_, $dest;
+ use File::Copy; my $ok = copy($_, $dest);
if ( $self->{v} > 1 ) {
print $ok ? " OK\n" : " $!\n";
}
--
Greg Matheson, Taiwan
