#!/usr/bin/perl

# Copyright (c) 2010 Symbian Foundation Ltd

# This component and the accompanying materials are made available

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

# which accompanies this distribution, and is available

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

#

# Initial Contributors:

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

# Routine to set EPOCROOT if not defined; is set to fully qualified name of ../..

use strict;

use Cwd;

sub set_epocroot()

{

    if (!$ENV{'EPOCROOT'}) {

        print ">>> EPOCROOT not defined. Assuming ../..\n";

        my $cwd = getcwd;

        chdir "../..";

    	print ">>> EPOCROOT=",getcwd,"\n";

    	$ENV{'EPOCROOT'}=getcwd;

    	chdir $cwd;

    }

}

1;