#!/usr/local/bin/perl
# 
# $Header: getdefaultdirspath.pl 21-jul-2005.06:49:48 pshroff Exp $
#
# getdefaultdirspath.pl
# 
# Copyright (c) 2005, Oracle. All rights reserved.  
#
#    NAME
#      getdefaultdirspath.pl - <one-line expansion of the name>
#
#    DESCRIPTION
#      <short description of component this file declares/defines>
#
#    NOTES
#      <other useful comments, qualifications, etc.>
#
#    MODIFIED   (MM/DD/YY)
#    pshroff     07/21/05 - used chdir instead of cd...
#    pshroff     07/08/05 - adding error handling code 
#    pshroff     06/30/05 - pshroff_map_shiphome=> moved to emcore..
#    rbhanush    05/24/05 - rbhanush_update_props=> moved to provisioning dir
#    rbhanush    05/19/05 - Creation
# 

use strict;

my $directive_loc=$ARGV[0];

chdir $directive_loc or die "Can't cd to $directive_loc: $!\n";

my $pwdCommand="pwd";
system($pwdCommand);
exit ($? >> 8);