core/group/genver.pl
changeset 25 482757737e59
parent 0 7f656887cf89
child 106 e7feb3e56cd0
equal deleted inserted replaced
24:0653c7ef68b2 25:482757737e59
    79 	last;
    79 	last;
    80       }
    80       }
    81     }
    81     }
    82     close (COMPILER);
    82     close (COMPILER);
    83   }
    83   }
       
    84   elsif ($platform =~ /^winscw$/i) {
       
    85     open (COMPILER, "mwccsym2.exe 2>&1 |") or die "Couldn't run \"mwccsym2.exe\": $!\n";
       
    86     while (my $line = <COMPILER>) {
       
    87       if ($line =~ /^Version/) {
       
    88 	chomp $line;
       
    89 	$version = "mwccsym2 $line";
       
    90 	last;
       
    91       }
       
    92     }
       
    93     close (COMPILER);
       
    94   }
    84   return $version;
    95   return $version;
    85 }
    96 }