Kaydet (Commit) d8280dd0 authored tarafından Tor Lillqvist's avatar Tor Lillqvist

We don't use any gbuild.lst files

üst 99ee003d
......@@ -91,21 +91,18 @@ sub get_initial_directory
sub search_via_build_lst {
my $self = shift;
my @possible_build_lists = ('gbuild.lst', 'build.lst'); # build lists names
my $previous_dir = '';
my $rep_root_candidate = $self->{INITIAL_DIRECTORY};
do {
foreach (@possible_build_lists) {
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;
};
my $test_file;
if ($rep_root_candidate eq '/') {
$test_file = '/prj/build.lst';
} else {
$test_file = $rep_root_candidate . '/prj/build.lst';
};
if (-e $test_file) {
$self->{REPOSITORY_ROOT} = File::Basename::dirname($rep_root_candidate);
return 1;
};
$previous_dir = $rep_root_candidate;
$rep_root_candidate = File::Basename::dirname($rep_root_candidate);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment