51 |
|
|
52 |
|
$switch->checkparam($hashref, $name, "name"); |
53 |
|
$switch->checkparam($hashref, $name, "version"); |
54 |
< |
$ENV{LOCALTOP}=&cwd."/".$$hashref{'name'}."_".$$hashref{'version'}; |
54 |
> |
if ( ! defined $ENV{devareaname} ) { |
55 |
> |
my $vers=$$hashref{'version'}; |
56 |
> |
$vers=~s/^$$hashref{'name'}_//; |
57 |
> |
$ENV{LOCALTOP}=&cwd."/".$$hashref{'name'}."_".$vers; |
58 |
> |
} |
59 |
> |
else { |
60 |
> |
$ENV{LOCALTOP}=&cwd."/".$ENV{devareaname}; |
61 |
> |
} |
62 |
|
$scramdir=$ENV{LOCALTOP}."/.SCRAM"; |
63 |
|
&AddDir::adddir($scramdir); |
64 |
|
chdir $ENV{LOCALTOP}; |
105 |
|
|
106 |
|
$hashref=$switch->SetupValueHash( \@vars ); |
107 |
|
$switch->checkparam($hashref, $name, "dir"); |
108 |
+ |
$$hashref{'dir'}=~s/`//g; |
109 |
|
print ENVIRONMENT 'projconfigdir='.$$hashref{'dir'}."\n"; |
110 |
|
$ENV{SCRAM_BootStrapFiles}=$ENV{SCRAM_BootStrapFiles}.":". |
111 |
|
$ENV{LOCALTOP}."/".$$hashref{'dir'}; |