core/group/genver.pl
changeset 25 482757737e59
parent 0 7f656887cf89
--- a/core/group/genver.pl	Sat Jul 31 20:58:45 2010 +0100
+++ b/core/group/genver.pl	Thu Aug 05 12:06:56 2010 +0100
@@ -81,5 +81,16 @@
     }
     close (COMPILER);
   }
+  elsif ($platform =~ /^winscw$/i) {
+    open (COMPILER, "mwccsym2.exe 2>&1 |") or die "Couldn't run \"mwccsym2.exe\": $!\n";
+    while (my $line = <COMPILER>) {
+      if ($line =~ /^Version/) {
+	chomp $line;
+	$version = "mwccsym2 $line";
+	last;
+      }
+    }
+    close (COMPILER);
+  }
   return $version;
 }