- Timestamp:
- Aug 31, 2007, 3:27:27 PM (17 years ago)
- Location:
- devel/pb
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/bin/pb
r69 r70 20 20 use POSIX qw(strftime); 21 21 22 use vars qw (%defpkgdir %extpkgdir %version %confparam %filteredfiles $debug $LOG $projectbuilderver $projectbuilderrev);22 use vars qw (%defpkgdir %extpkgdir %version %confparam %filteredfiles %pbrc $debug $LOG $projectbuilderver $projectbuilderrev); 23 23 $debug = 0; # Debug level 24 24 $LOG = *STDOUT; # Where to log … … 256 256 pbsystem("tar cfpz $pbpkg-$pbver.tar.gz $pbpkg-$pbver","Creating $pbpkg tar files compressed"); 257 257 print $LOG "Under $ENV{'PBDESTDIR'}/$pbpkg-$pbver.tar.gz\n" if ($debug >= 0); 258 # Keep track of what is generated for build2pkgdefault259 open(LAST,"> $ ENV{'PBDESTDIR'}/pbrc") || die "Unable to create $ENV{'PBDESTDIR'}/pbrc";258 # Keep track of what is generated for default 259 open(LAST,"> $pbrc{$ENV{'PBPROJ'}}") || die "Unable to create $pbrc{$ENV{'PBPROJ'}}"; 260 260 print LAST "$pbver-$pbtag\n"; 261 261 close(LAST); … … 265 265 my $vertag = shift @ARGV; 266 266 if (not defined $vertag) { 267 open(LAST,"$ ENV{'PBDESTDIR'}/pbrc") || die "Unable to open $ENV{'PBDESTDIR'}/pbrc\nYou may want to precise as parameter version-tag";267 open(LAST,"$pbrc{$ENV{'PBPROJ'}}") || die "Unable to open $pbrc{$ENV{'PBPROJ'}}\nYou may want to precise as parameter version-tag"; 268 268 $vertag = <LAST>; 269 269 chomp($vertag); -
devel/pb/lib/ProjectBuilder/common.pm
r69 r70 13 13 use File::Temp qw /tempdir/; 14 14 use Data::Dumper; 15 use vars qw (%pbrc); 15 16 16 17 $ENV{'PBETC'} = "$ENV{'HOME'}/.pbrc"; … … 37 38 # and use its content 38 39 # 39 $pbrc = pb_init("$ENV{'PBETC'}","pbrc");40 my $pbrc = pb_init("$ENV{'PBETC'}","pbrc"); 40 41 41 my%pbrc = %$pbrc;42 %pbrc = %$pbrc; 42 43 if (not defined $proj) { 43 44 # Take the first as the default project
Note:
See TracChangeset
for help on using the changeset viewer.