Changeset 9 in ProjectBuilder for devel/pb/lib/common.pm
- Timestamp:
- Jul 30, 2007, 1:22:32 AM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/lib/common.pm
r8 r9 7 7 require Exporter; 8 8 @ISA = qw(Exporter); 9 @EXPORT = qw( set_env);9 @EXPORT = qw(env_init); 10 10 11 11 use lib qw (lib); … … 13 13 use strict; 14 14 use File::Basename; 15 use ExtUtils::Command;15 use File::Path; 16 16 use File::Temp qw /tempdir/; 17 17 use vars qw (%defpkgdir %extpkgdir %version); … … 20 20 $ENV{'PBCONF'} = "/etc/pb"; 21 21 22 sub set_env{22 sub env_init { 23 23 24 24 my $proj=shift; … … 85 85 # 86 86 $ENV{'PBTOPDIR'}="$ENV{'PBROOT'}/../delivery"; 87 $ENV{'PBDESTDIR'}=$ENV{'PBTOPDIR'}."/".$ENV{'PBVER'}."-".$ENV{'PBTAG'}; 88 mkpath $ENV{'PBDESTDIR'}; 87 $ENV{'PBDESTDIR'}="$ENV{'PBTOPDIR'}/$ENV{'PBVER'}-$ENV{'PBTAG'}"; 88 pbrm_rf($ENV{'PBDESTDIR'}) if (-d "$ENV{'PBDESTDIR'}"); 89 pbmkdir_p($ENV{'PBDESTDIR'}) || die "Unable to recursively create $ENV{'PBDESTDIR'}"; 89 90 90 91 umask 0022; 91 92 return($proj); 92 93 } 94 95 sub pbmkdir_p { 96 my @dir = @_; 97 my $ret = mkpath(@dir, 0, 0755); 98 return($ret); 99 } 100 101 sub pbrm_rf { 102 my @dir = @_; 103 my $ret = rmtree(@dir, 0, 0); 104 return($ret); 105 } 106 93 107 1;
Note:
See TracChangeset
for help on using the changeset viewer.