[tools] winetest/build-patterns: Store an 'is wine' flag in the report structure.

[Francois Gouget]

This groups all the tag parsing aspects in one place and is useful to 
check if a pattern contains Wine reports.

Signed-off-by: Francois Gouget 
---
 winetest/build-patterns | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/winetest/build-patterns b/winetest/build-patterns
index dac2eef04..eb152c872 100755
--- a/winetest/build-patterns
+++ b/winetest/build-patterns
@@ -329,12 +329,14 @@ foreach my $build (@sortedbuilds)
         if (!$report)
         {
             my ($platform, $tag, $num) = split /_/, $reportdir;
+            my $is_wine = ($platform =~ /^(?:linux|mac|bsd|solaris|wine)$/);
             $report = {
                 dir => $reportdir,
                 platform => $platform,
                 tag => $tag,
                 num => $num,
                 is_rerun => ($num ? 1 : 0),
+                is_wine => $is_wine,
             };
             $reports{$reportdir} = $report;
         }
@@ -1171,7 +1173,7 @@ foreach my $report (values %reports)
     }
     # Windows and Wine have different failure modes so put them on separate
     # pages.
-    my $page = ($report->{platform} =~ /^(?:linux|mac|bsd|solaris|wine)$/) ? "wine" : "win";
+    my $page = $report->{is_wine} ? "wine" : "win";
     $tbreports{$page}->{$report->{dir}} = 1;
 }