cross-plat-dev-utils/fix_epoc32.pl
changeset 40 68f68128601f
parent 2 39c28ec933dd
child 42 cf609178ac39
equal deleted inserted replaced
39:fa9d7d89d3d6 40:68f68128601f
    12 
    12 
    13 use strict;
    13 use strict;
    14 use check_os;
    14 use check_os;
    15 use perl_run;
    15 use perl_run;
    16 
    16 
       
    17 my $rc = perl_run("fix_tool_exports.pl @ARGV");
       
    18 exit $rc, if $rc;
    17 if (os_is_windows()) {
    19 if (os_is_windows()) {
    18 	exit perl_run("fix_epoc32_win.pl @ARGV");
    20 	exit perl_run("fix_epoc32_win.pl @ARGV");
    19 }
    21 }
    20 if (os_is_linux()) {
    22 if (os_is_linux()) {
    21 	exit perl_run("fix_epoc32_linux.pl @ARGV");
    23 	exit perl_run("fix_epoc32_linux.pl @ARGV");