core/group/genver.pl
changeset 42 a581f3c08c9a
parent 25 482757737e59
child 106 e7feb3e56cd0
--- a/core/group/genver.pl	Sat Jul 31 21:32:20 2010 +0100
+++ b/core/group/genver.pl	Wed Aug 25 21:19:19 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;
 }