diff options
author | Jens-Heiner Rechtien <hr@openoffice.org> | 2008-09-19 10:03:08 +0000 |
---|---|---|
committer | Jens-Heiner Rechtien <hr@openoffice.org> | 2008-09-19 10:03:08 +0000 |
commit | f3df1a08b77896d41f6393c81ea6a533f763291b (patch) | |
tree | b930d0e83b7abaadf804e55b73efec71cdd61ea0 /solenv/bin/build.pl | |
parent | 9f1ad35159614b131823153b073c7e25491eb80d (diff) |
#i93829#: changes needed for subversion migration
Diffstat (limited to 'solenv/bin/build.pl')
-rw-r--r-- | solenv/bin/build.pl | 17 |
1 files changed, 14 insertions, 3 deletions
diff --git a/solenv/bin/build.pl b/solenv/bin/build.pl index 20fd2e2d8f8f..df8acc292912 100644 --- a/solenv/bin/build.pl +++ b/solenv/bin/build.pl @@ -892,7 +892,13 @@ sub get_stand_dir { die "No environment set\n"; }; my $StandDir; - $StandDir = getcwd(); +# $StandDir = getcwd(); + if ( defined $ENV{PWD} ) { + $StandDir = $ENV{PWD}; + } else { + $StandDir = $ENV{_cwd}; + } + print "curr dir: $StandDir\n"; my $previous_dir = ''; do { foreach (@possible_build_lists) {# ('build.lst', 'build.xlist'); @@ -907,9 +913,14 @@ sub get_stand_dir { }; }; $previous_dir = $StandDir; - $StandDir = Cwd::realpath($StandDir . '/..'); +# $StandDir = Cwd::realpath($StandDir . '/..'); + my @dirlist = split(/\//,Cwd::realpath($StandDir)); + pop @dirlist; # discard last dirname; + $StandDir = join('/', @dirlist); + print "next dir: $StandDir\n"; } - while (chdir '..'); +# while (chdir '..'); + while (chdir "$StandDir"); }; # |