1 #!/usr/bin/perl

     2 # Copyright (c) 2010 Symbian Foundation Ltd

     3 # This component and the accompanying materials are made available

     4 # under the terms of the License "Eclipse Public License v1.0"

     5 # which accompanies this distribution, and is available

     6 # at the URL "http://www.eclipse.org/legal/epl-v10.html".

     7 #

     8 # Initial Contributors:

     9 # Mike Kinghan, mikek@symbian.org for Symbian Foundation Ltd - initial contribution.

    10 

    11 # Script to patch the epoc32 tree as required.

    12 

    13 use strict;

    14 use check_os;

    15 use perl_run;

    16 

    17 if (os_is_windows()) {

    18 	exit perl_run("fix_epoc32_win.pl @ARGV");

    19 }

    20 if (os_is_linux()) {

    21 	exit perl_run("fix_epoc32_linux.pl @ARGV");

    22 }

    23 die "*** Unsupported OS $^O ***";

    24