Commits

Vladimir Glazunov  committed 602259c

vgbugs11: #i113989# optimize file-tests when looking for repository root

  • Participants
  • Parent commits e0313c8

Comments (0)

Files changed (1)

File solenv/bin/modules/RepositoryHelper.pm

 
 sub search_via_build_lst {
     my $self = shift;
-    my @possible_build_lists = ('build.lst', 'build.xlist'); # build lists names
+#    my @possible_build_lists = ('build.lst', 'build.xlist'); # build lists names
+    my @possible_build_lists = ('build.lst'); # build lists names
     my $previous_dir = '';
     my $rep_root_candidate = $self->{INITIAL_DIRECTORY};
     do {
-        foreach (@possible_build_lists) {# ('build.lst', 'build.xlist');
+        foreach (@possible_build_lists) {
             if (-e $rep_root_candidate . '/prj/'.$_) {
                 $self->{REPOSITORY_ROOT} = File::Basename::dirname($rep_root_candidate);
                 return 1;
-            } elsif ($rep_root_candidate eq $previous_dir) {
-                return 0;
             };
         };
         $previous_dir = $rep_root_candidate;
         $rep_root_candidate = File::Basename::dirname(Cwd::realpath($rep_root_candidate));
-        return 0 if (!$rep_root_candidate);
+        return 0 if ((!$rep_root_candidate) || ($rep_root_candidate eq $previous_dir));
     }
     while (chdir "$rep_root_candidate");
 };