Lines Matching refs:source_root
54 my $source_root = shift;
60 if (defined $source_root) {
61 $source_root = Cwd::realpath($source_root);
62 $source_root =~ s/\\|\/$//;
63 if (-f $source_root) {
65 if (File::Basename::basename($source_root) eq 'source_config') {
67 $self->{SOURCE_CONFIG_FILE} = $source_root;
68 $source_root = File::Basename::dirname($source_root);
70 croak("$source_root is not a source_config file");
73 $self->{USER_SOURCE_ROOT} = $source_root;
74 $source_root .= '/..';
77 $source_root = $ENV{SOURCE_ROOT_DIR};
79 $source_root = Cwd::realpath($source_root);
80 $self->{SOURCE_ROOT} = $source_root;
261 my $source_root = shift;
262 my $possible_path = $source_root . '/' . SOURCE_CONFIG_FILE_NAME;