Changeset 115 in ProjectBuilder
- Timestamp:
- Sep 6, 2007, 8:58:25 PM (18 years ago)
- Location:
- devel/pb
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/bin/pb
r114 r115 136 136 my ($pkgv, $pkgt) = pb_conf_read("$ENV{'PBCONF'}/$ENV{'PBPROJ'}.pb","pkgver","pkgtag"); 137 137 foreach my $pbpkg (@pkgs) { 138 $ENV{'PBPKG'} = $pbpkg; 138 139 if ((defined $pkgv) && (defined $pkgv->{$pbpkg})) { 139 140 $pbver = $pkgv->{$pbpkg}; 141 $ENV{'PBVER'} = $pbver; 140 142 } else { 141 143 $pbver = $ENV{'PBVER'}; … … 143 145 if ((defined $pkgt) && (defined $pkgt->{$pbpkg})) { 144 146 $pbtag = $pkgt->{$pbpkg}; 147 $ENV{'PBTAG'} = $pbtag; 145 148 } else { 146 149 $pbtag = $ENV{'PBTAG'}; -
devel/pb/lib/ProjectBuilder/Base.pm
r114 r115 308 308 my $destdir = shift; 309 309 my $tmp; 310 my $tmp1; 310 311 311 312 if ($cms->{$ENV{'PBPROJ'}} eq "svn") { … … 319 320 my $dir=dirname($destdir); 320 321 my $base=basename($destdir); 321 # Doesn't work if called from outside with a full path name to a file/dir to export 322 $tmp=basename($source); 322 if (-d $source) { 323 $tmp1 = $source; 324 $tmp1 =~ s|$ENV{'PBROOT'}/||; 325 } else { 326 $tmp1 = dirname($source); 327 $tmp1 =~ s|$ENV{'PBROOT'}/||; 328 $tmp1 = $tmp1."/".basename($source); 329 } 323 330 # CVS needs a relative path ! 324 pb_system("cd $dir ; cvs export -D \"$pbdate\" -d $base $tmp ","Exporting $source from CVS to $destdir");331 pb_system("cd $dir ; cvs export -D \"$pbdate\" -d $base $tmp1","Exporting $source from CVS to $destdir"); 325 332 } else { 326 333 die "cms $cms->{$ENV{'PBPROJ'}} unknown";
Note:
See TracChangeset
for help on using the changeset viewer.