WineHQ: winetest fixing and streamlining

[Ferenc Wagner]

Hi Jer,

your probably got a couple of "Unknown version: unknown ..."
mails from your (ours?) dearest Cron daemon.  After applying
this patch those should be accepted, so you could either:
1. rename then unknown_* dirs to 95_* and touch outdated, or
2. (safer) rename them to rep* and move back to the queue, or
3. (simplest) do nothing letting them RIP.

Sorry for the extra trouble,
Feri.

ChangeLog:
- Fix residual version logic damage.
- Turn off hashing, we don't seem to want it.

Index: winetest/dissect
===================================================================
RCS file: /home/wine/tools/winetest/dissect,v
retrieving revision 1.12
diff -u -r1.12 dissect
--- winetest/dissect	18 Jun 2004 15:56:33 -0000	1.12
+++ winetest/dissect	22 Jun 2004 17:31:42 -0000
@@ -35,7 +35,6 @@
 
 use File::Temp qw/tempdir/;
 use Errno qw/ENOTEMPTY/;
-use Digest::MD5;
 
 my ($report, $tmpdir);
 
@@ -105,7 +104,7 @@
 }
 $version = "unknown";
 if ($plid==1 && $major==4) {
-    if ($minor<=10 && $build<1998) {
+    if ($minor<10) {
         $version = "95";
     } elsif ($minor==10) {
         $version = "98";
@@ -131,7 +130,6 @@
 }
 
 /Test output:\r?/ or mydie "no test header: $_";
-my $fragment = Digest::MD5->new;
 my ($unit, $test, $source, $rev, $result);
 $unit = undef;                  # state machine starts
 while (<IN>) {
@@ -149,8 +147,7 @@
         <IN>;                   # current test finished
         $result = "$2 $3 $4";
       FINISH:
-        $fragment->add($_);
-        print SUM $fragment->b64digest, " $unit $test $result $source $rev\n";
+        print SUM "- $unit $test $result $source $rev\n";
         print OUT;
         close OUT or mydie "error writing $tmpfile: $!\n";
         if (-s $tmpfile) {
@@ -161,7 +158,6 @@
         $unit = undef;
     } else {                    # current test output
         print OUT;
-        $fragment->add($_);
     }
 }
 if (defined $unit) {