WineHQ: winetest: ignore the Build info block

[Ferenc Wagner]

Jer,

Please apply this after my "follow winetest version change"
patch.

ChangeLog: Ignore the Build info block.

Index: winetest/dissect
===================================================================
RCS file: /home/wine/tools/winetest/dissect,v
retrieving revision 1.6
diff -u -r1.6 dissect
--- winetest/dissect    19 Apr 2004 20:23:19 -0000      1.6
+++ winetest/dissect    23 Apr 2004 00:55:32 -0000
@@ -82,8 +82,11 @@
 /^Tag: ([-.0-9a-zA-Z]*)\r?$/ or mydie "no tag line: $_";
 my $tag = $1 eq ""?"":"_$1";
 
-my ($version, $major, $minor, $build, $plid);
 $_ = <IN>;
+/^Build info:\r?$/ or mydie "no Build info header: $_";
+while (($_ = <IN>) =~ /^    /) { }
+
+my ($version, $major, $minor, $build, $plid);
 /^Operating system version:\r?$/ or mydie "no OS header: $_";
 while (($_ = <IN>) =~ /^\s*([a-zA-Z]+)=(.*?)\r?$/) {
     if ($1 eq "dwMajorVersion") {