12 |
|
$Arch=1; |
13 |
|
push @ARCHBLOCK, $Arch; |
14 |
|
|
15 |
< |
sub BuildClientFile($projectfile) { |
15 |
> |
sub BuildClientFile { |
16 |
|
my $projectfile=shift; |
17 |
|
my $archdir=".SCRAM/$ENV{SCRAM_ARCH}"; |
18 |
|
my $clientfile="$archdir/clientsettings"; |
37 |
|
close CLIENT2; |
38 |
|
} |
39 |
|
|
40 |
< |
sub _ParseProjectReqs($reqfile) { |
40 |
> |
sub _ParseProjectReqs { |
41 |
|
my $reqfile=shift; |
42 |
|
use Utilities::Switcher; |
43 |
|
|
74 |
|
# |
75 |
|
#--------------------------------------------------------------------------- |
76 |
|
|
77 |
< |
sub _gettool($toolurl) { |
77 |
> |
sub _gettool { |
78 |
|
# set the $toolfile variable |
79 |
|
my $toolurl=shift; |
80 |
|
my @toolpath= split /:/, $ENV{SCRAM_BootStrapFiles}; |