diff -r fa9d7d89d3d6 -r 68f68128601f sbsv1/abld/genutil/emkdir.pl --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/sbsv1/abld/genutil/emkdir.pl Thu Nov 25 13:59:07 2010 +0000 @@ -0,0 +1,48 @@ +# Copyright (c) 1999-2009 Nokia Corporation and/or its subsidiary(-ies). +# All rights reserved. +# This component and the accompanying materials are made available +# under the terms of "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: +# Nokia Corporation - initial contribution. +# +# Contributors: +# +# Description: +# + +use File::Path; + + +# THE MAIN PROGRAM SECTION +{ + unless (@ARGV) { + &Usage(); + } + + my $originalPath = join (' ',@ARGV); + print ("Creating $originalPath\n"); + +# temp change for old perl + foreach (@ARGV) { + s-\\-\/-go; + } + mkpath([@ARGV]); + foreach my $path (@ARGV) { + if (! -e $path) { + print ("ERROR: Couldn't create $path\n"); + } + } +} + +sub Usage () { + print <