Changeset 25 in ProjectBuilder for devel/pb/lib
- Timestamp:
- Aug 1, 2007, 3:30:16 AM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/lib/common.pm
r18 r25 89 89 # Set delivery directory 90 90 # 91 $ENV{'PBTOPDIR'}="$ENV{'PBROOT'}/../delivery"; 91 chdir "$ENV{'PBROOT'}/.."; 92 my $path = `pwd`; 93 chomp($path); 94 $ENV{'PBTOPDIR'}=$path."/delivery"; 92 95 $ENV{'PBDESTDIR'}="$ENV{'PBTOPDIR'}/$ENV{'PBVER'}-$ENV{'PBTAG'}"; 93 pbrm_rf($ENV{'PBDESTDIR'}) if (-d "$ENV{'PBDESTDIR'}"); 94 pbmkdir_p($ENV{'PBDESTDIR'}) || die "Unable to recursively create $ENV{'PBDESTDIR'}"; 96 if (-d $ENV{'PBDESTDIR'}) { 97 opendir(DIR,$ENV{'PBDESTDIR'}) || die "Unable to open directory $ENV{'PBDESTDIR'}: $!"; 98 foreach my $d (readdir(DIR)) { 99 next if ($d =~ /^\./); 100 pbrm_rf("$ENV{'PBDESTDIR'}/$d") if (-d "$ENV{'PBDESTDIR'}/$d"); 101 } 102 closedir(DIR); 103 } 104 if (! -d "$ENV{'PBDESTDIR'}") { 105 pbmkdir_p($ENV{'PBDESTDIR'}) || die "Unable to recursively create $ENV{'PBDESTDIR'}"; 106 } 107 108 # 109 # Set build directory 110 # 111 $ENV{'PBBUILDDIR'}=$path."/build"; 112 pbrm_rf($ENV{'PBBUILDDIR'}) if (-d "$ENV{'PBBUILDDIR'}"); 113 pbmkdir_p($ENV{'PBBUILDDIR'}) || die "Unable to recursively create $ENV{'PBBUILDDIR'}"; 95 114 96 115 umask 0022;
Note:
See TracChangeset
for help on using the changeset viewer.