Changeset 67 in ProjectBuilder for devel/pb/lib
- Timestamp:
- Aug 31, 2007, 1:23:27 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/lib/ProjectBuilder/common.pm
r52 r67 33 33 } 34 34 # 35 # Use project configuration file 35 # Use project configuration file if needed 36 36 # 37 pb_init("$ENV{'PBETC'}"); 37 if (not defined $ENV{'PBROOT'}) { 38 pb_init("$ENV{'PBETC'}"); 38 39 39 if (not defined $proj) {40 # Take the first as the default project41 $proj = (keys %pbroot)[0];40 if (not defined $proj) { 41 # Take the first as the default project 42 $proj = (keys %pbroot)[0]; 42 43 print $LOG "Using $proj as default project as none has been specified\n" if (($debug >= 0) and (defined $proj)); 44 } 45 die "No project defined - use env var PBPROJ or -p proj" if (not (defined $proj)); 46 47 $ENV{'PBROOT'} = $pbroot{$proj}; 48 } else { 49 die "No project defined - use env var PBPROJ or -p proj" if (not (defined $proj)); 43 50 } 44 die "No project defined - use env var PBPROJ or -p proj" if (not (defined $proj));45 46 $ENV{'PBROOT'} = $pbroot{$proj};47 51 48 52 #
Note:
See TracChangeset
for help on using the changeset viewer.