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; }