vgbugs11: #i113989# ensure first single slash because of differences between Windows and Unix in evaluating of double slash

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;
             };