Re: patch Test-Smoke 1.13 for smoke on win32

[alian]

> Here is patch I've applied to use Test-Smoke-1.13 on win32 .
Best if I attach it.

--- mktest.pl   Thu Sep 12 18:16:35 2002
+++ /home/alian/soft/mktest.pl  Mon Sep 23 00:17:52 2002
@@ -52,7 +52,7 @@
     my ($command, $sub) = @_;
     $norun       and
        return print TTY "$command\n";
-
+print "In run: $command - $sub\n";
     defined $sub and
        return &$sub ($command);
 
@@ -308,7 +308,9 @@
            }
 
        print TTY "\nConfigure ...";
-       run "./Configure $config_args -des", is_win32 ? \&Configure : undef;
+       if (is_win32) {
+      run("./Configure $config_args -des", \&Configure);
+       } else { run("./Configure $config_args -des");}
 
        unless ($norun or (is_win32 ? -f "win32/smoke.mk"
                                    : -f "Makefile" && -s "config.sh")) {
@@ -449,6 +451,7 @@
        "-Dusethreads"          => "USE_ITHREADS",
        "-Duseithreads"         => "USE_ITHREADS",
        "-Duseperlio"           => "USE_PERLIO",
+       "-Uuseperlio"           => "",
        "-Dusemultiplicity"     => "USE_MULTI",
        "-Duseimpsys"           => "USE_IMP_SYS",
        "-DDEBUGGING"           => "USE_DEBUGGING",
@@ -462,7 +465,7 @@
        );
 
     ttylog $command;
-    $command =~ m{^\s*\./Configure\s+(.*)} or die "unable to parse command";
+    $command =~ m{^\s*\./Configure\s+(.*)} or die "unable to parse command $command";
     foreach (split " ", $1) {
        m/^-[des]{1,3}$/ and next;
        m/^-Dusedevel$/  and next;