14 use strict;

    14 use strict;

    15 use apply_patch_file;

    15 use apply_patch_file;

    16 use usage;

    16 use usage;

    17 use check_os;

    17 use check_os;

    18 use File::Spec;

    18 use File::Spec;

    19 

    20 

    20 require_os_windows();

    21 require_os_windows();

    21 usage(\@ARGV,"This script makes required fixes to epoc32 tree in Windows");

    22 usage(\@ARGV,"This script makes required fixes to epoc32 tree in Windows");

    22 my $epocroot = get_epocroot();

    23 my $epocroot = get_epocroot();

    23 my $gcc_mingw_include_dir = File::Spec->catfile(get_epoc32_dir(),"include","gcc_mingw");

    24 my $gcc_mingw_include_dir = File::Spec->catfile(get_epoc32_dir(),"include","gcc_mingw");

    31 my $s60_sbs_config_xml = File::Spec->catfile("epoc32","sbs_config","s60_sbs_config.xml");

    32 my $s60_sbs_config_xml = File::Spec->catfile("epoc32","sbs_config","s60_sbs_config.xml");

    32 apply_patch_file($gcc_mingw_preinclude);

    33 apply_patch_file($gcc_mingw_preinclude);

    33 apply_patch_file($libwsock32_deb);

    34 apply_patch_file($libwsock32_deb);

    34 apply_patch_file($libwsock32_rel);

    35 apply_patch_file($libwsock32_rel);

    35 apply_patch_file($s60_sbs_config_xml);

    36 apply_patch_file($s60_sbs_config_xml);

    37 

    38