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 ...@@ -91,21 +91,18 @@ sub get_initial_directory
sub search_via_build_lst { sub search_via_build_lst {
my $self = shift; my $self = shift;
my @possible_build_lists = ('gbuild.lst', 'build.lst'); # build lists names
my $previous_dir = ''; my $previous_dir = '';
my $rep_root_candidate = $self->{INITIAL_DIRECTORY}; my $rep_root_candidate = $self->{INITIAL_DIRECTORY};
do { do {
foreach (@possible_build_lists) { my $test_file;
my $test_file; if ($rep_root_candidate eq '/') {
if ($rep_root_candidate eq '/') { $test_file = '/prj/build.lst';
$test_file = '/prj/' . $_; } else {
} else { $test_file = $rep_root_candidate . '/prj/build.lst';
$test_file = $rep_root_candidate . '/prj/' . $_; };
}; if (-e $test_file) {
if (-e $test_file) { $self->{REPOSITORY_ROOT} = File::Basename::dirname($rep_root_candidate);
$self->{REPOSITORY_ROOT} = File::Basename::dirname($rep_root_candidate); return 1;
return 1;
};
}; };
$previous_dir = $rep_root_candidate; $previous_dir = $rep_root_candidate;
$rep_root_candidate = File::Basename::dirname($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