Changeset 38 in ProjectBuilder for devel/pb/lib/common.pm
- Timestamp:
- Aug 9, 2007, 4:13:27 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/lib/common.pm
r30 r38 34 34 # Use project configuration file 35 35 # 36 pb_init("$ENV{'PBETC'}/$proj.pb"); 36 my $pbroot=pb_init("$ENV{'PBETC'}/$proj"); 37 38 if (not defined $pbroot) { 39 die "pbroot doesn't exist in $ENV{'PBETC'}/$proj"; 40 } else { 41 $ENV{'PBROOT'} = $pbroot; 42 } 43 44 pb_conf_init("$ENV{'PBROOT'}/pbconf/$proj.pb"); 37 45 38 46 # 39 47 # Check content 40 48 # 41 if (not defined $confparam{"pbroot"}) {42 die "confparam pbroot doesn't exist in $ENV{'PBETC'}/$proj.pb";43 } else {44 $ENV{'PBROOT'} = $confparam{"pbroot"};45 }46 49 if (defined $confparam{"cvsroot"}) { 47 50 $ENV{'CVSROOT'} = $confparam{"cvsroot"};
Note:
See TracChangeset
for help on using the changeset viewer.