| # | Line 52 | Line 52 | sub Bootlocaltop { | |
|---|---|---|
| 52 | $switch->checkparam($hashref, $name, "name"); | |
| 53 | $switch->checkparam($hashref, $name, "version"); | |
| 54 | if ( ! defined $ENV{devareaname} ) { | |
| 55 | < | $ENV{LOCALTOP}=&cwd."/".$$hashref{'name'}."_".$$hashref{'version'}; |
| 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}; | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |