diff options
author | Vladimir Glazunov <vg@openoffice.org> | 2010-09-01 14:12:29 +0200 |
---|---|---|
committer | Vladimir Glazunov <vg@openoffice.org> | 2010-09-01 14:12:29 +0200 |
commit | a55d0542b2211eaf55ea254df0ee33bed4b54fbb (patch) | |
tree | 49bbf872420a26b08204cbb5c0743999dd8132c2 /solenv | |
parent | 39c49a5f8f9a5b8106ec43b24ddfce69c793f2d5 (diff) |
vgbugs11: #i113989# ensure first single slash because of differences between Windows and Unix in evaluating of double slash
Diffstat (limited to 'solenv')
-rw-r--r-- | solenv/bin/modules/RepositoryHelper.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/solenv/bin/modules/RepositoryHelper.pm b/solenv/bin/modules/RepositoryHelper.pm index d0ed0240ff88..8ea7996f6bc6 100644 --- a/solenv/bin/modules/RepositoryHelper.pm +++ b/solenv/bin/modules/RepositoryHelper.pm @@ -124,7 +124,13 @@ sub search_via_build_lst { my $rep_root_candidate = $self->{INITIAL_DIRECTORY}; do { foreach (@possible_build_lists) { - if (-e $rep_root_candidate . '/prj/'.$_) { + my $test_file; + if ($rep_root_candidate eq '/') { + $test_file = '/prj/' . $_; + } else { + $test_file = $rep_root_candidate . '/prj/' . $_; + }; + if (-e $test_file) { $self->{REPOSITORY_ROOT} = File::Basename::dirname($rep_root_candidate); return 1; }; |