--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/cross-plat-dev-utils/set_epocroot.pm	Mon May 10 19:54:49 2010 +0100
@@ -0,0 +1,28 @@
+#!/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;
+