1 |
< |
#!/usr/local/bin/perl5 -I$ENV{SCRAM_HOME}/src |
1 |
> |
#!/usr/local/bin/perl5 -I$SCRAM_HOME/src -I/afs/cern.ch/user/w/williamc/public/SCRAM/src |
2 |
> |
|
3 |
|
# |
4 |
|
# User Interface |
5 |
|
# |
67 |
|
my $value; |
68 |
|
|
69 |
|
$ENV{LatestBuildFile}=""; # stop recursive behaviour in make |
70 |
< |
setarch(); |
70 |
> |
setarchitecture::setarch(); |
71 |
|
$ENV{INTwork}="tmp/$ENV{SCRAM_ARCH}"; |
72 |
|
$ENV{INTlib}="lib/$ENV{SCRAM_ARCH}"; |
73 |
|
$ENV{INTsrc}="src"; |
83 |
|
$ENV{SCRAM_CONFIG}="$ENV{SCRAM_HOME}/configuration"; |
84 |
|
} |
85 |
|
if ( ! ( exists $ENV{TOOL_HOME} ) ){ |
86 |
< |
$ENV{TOOL_HOME}="$ENV{SCRAM_HOME}/toolbox"; |
86 |
> |
$ENV{TOOL_HOME}="$ENV{SCRAM_HOME}/src"; |
87 |
|
} |
88 |
|
if ( ! ( exists $ENV{SCRAM_LOOKUPDB} ) ){ |
89 |
|
$ENV{SCRAM_LOOKUPDB}="$ENV{SCRAM_CONFIG}/project.lookup"; |