WineHQ winetest updates

[Ferenc Wagner]

ChangeLog: Fix some stupid last-minute breakage.

Index: dissect
===================================================================
RCS file: /home/wine/tools/winetest/dissect,v
retrieving revision 1.1
diff -u -r1.1 dissect
--- dissect	19 Feb 2004 22:00:34 -0000	1.1
+++ dissect	20 Feb 2004 04:05:13 -0000
@@ -28,10 +28,11 @@
 # License along with this library; if not, write to the Free Software
 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
-require "winetest.conf"
+use strict;
+use vars qw/$builds $queuedir $datadir/;
+require "winetest.conf";
 my $fileversion = 2;
 
-use strict;
 use File::Temp qw/tempdir/;
 use Errno qw/ENOTEMPTY/;
 use Digest::MD5;
Index: gather
===================================================================
RCS file: /home/wine/tools/winetest/gather,v
retrieving revision 1.1
diff -u -r1.1 gather
--- gather	19 Feb 2004 22:00:34 -0000	1.1
+++ gather	20 Feb 2004 04:05:13 -0000
@@ -26,10 +26,10 @@
 # License along with this library; if not, write to the Free Software
 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
-require "winetest.conf"
-my $fileversion = 2;
-
 use strict;
+use vars qw/$datadir/;
+require "winetest.conf";
+my $fileversion = 2;
 
 # Exceptional unit->directory mappings
 my %unitdir = ("gdi32"        => "gdi",
@@ -78,8 +78,8 @@
 # Read in the data
 
 my %alltests;                   # union of test names
-foreach my $file (glob "$build/*/summary.txt") {
-    (my $dir = $file) =~ s|^\Q$build\E/(.*?)/summary.txt$|$1|;
+foreach my $file (glob "$datadir/$build/*/summary.txt") {
+    (my $dir = $file) =~ s|^\Q$datadir/$build\E/(.*?)/summary.txt$|$1|;
     my $testref = {};
     (my $id, my @tag) = split /_/, $dir;
     $testref->{tag} = @tag?"@tag":"";