1 |
< |
#!/usr/local/bin/perl5 -I/afs/cern.ch/user/w/williamc/public/ConfigMan/toolbox/objects/schema1 |
1 |
> |
#!/usr/local/bin/perl5 -I$ENV{SCRAM_HOME}/src |
2 |
|
# |
3 |
|
# User Interface |
4 |
|
# |
32 |
|
my $version=shift @ARGV; |
33 |
|
environmentinit(); |
34 |
|
use File::Copy; |
35 |
< |
use AddDir; |
35 |
> |
use Utilities::AddDir; |
36 |
|
|
37 |
|
print "Warning : - you are entering a development zone.". |
38 |
|
" Don't complain if it don't work\n"; |
61 |
|
} |
62 |
|
|
63 |
|
sub environmentinit { |
64 |
< |
use setarchitecture; |
64 |
> |
use Utilities::setarchitecture; |
65 |
|
my $name; |
66 |
|
my $value; |
67 |
|
|