Changeset 1539 in ProjectBuilder for devel/pb-modules/lib/ProjectBuilder
- Timestamp:
- May 13, 2012, 12:21:51 PM (12 years ago)
- Location:
- devel/pb-modules/lib/ProjectBuilder
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb-modules/lib/ProjectBuilder/Distribution.pm
r1530 r1539 335 335 # This may not be // proof. We should test for availability of repo and sleep if not 336 336 my $cmd = "$pbos->{'install'} $deps"; 337 my $ret = pb_system($cmd, "Installing dependencies ($cmd)", undef,1);337 my $ret = pb_system($cmd, "Installing dependencies ($cmd)",undef,1); 338 338 # Try to accomodate deficient proxies 339 339 if ($ret != 0) { … … 445 445 next if $p =~ /^\s*$/o; 446 446 if ($pbos->{'type'} eq "rpm") { 447 my $res = pb_system("rpm -q --whatprovides --quiet $p","","quiet", 447 my $res = pb_system("rpm -q --whatprovides --quiet $p","","quiet",1); 448 448 next if ($res eq 0); 449 449 pb_log(1, "INFO: missing dependency $p\n"); 450 450 } elsif ($pbos->{'type'} eq "deb") { 451 my $res = pb_system("dpkg -L $p","","quiet", 451 my $res = pb_system("dpkg -L $p","","quiet",1); 452 452 next if ($res eq 0); 453 453 open(CMD,"dpkg -l $p |") or die "Unable to run dpkg -l $p: $!"; -
devel/pb-modules/lib/ProjectBuilder/VCS.pm
r1536 r1539 400 400 my $vcscmd = pb_vcs_cmd($scheme); 401 401 402 if ( ($scheme =~ /^((svn)|(cvs)|(svk))/o) {402 if ($scheme =~ /^((svn)|(cvs)|(svk))/o) { 403 403 pb_system("$vcscmd up ".join(' ',@dir),"Updating ".join(' ',@dir)); 404 404 } elsif ($scheme =~ /^((hg)|(git))/o) { 405 pb_system("(cd $dir && $vcscmd pull)", "Updating $dir "); 405 foreach my $d (@dir) { 406 pb_system("(cd $d && $vcscmd pull)", "Updating $d "); 407 } 406 408 } elsif (($scheme eq "flat") || ($scheme eq "ftp") || ($scheme eq "http")) { 407 409 } else { … … 425 427 my $vcscmd = pb_vcs_cmd($scheme); 426 428 427 if ( ($scheme =~ /^((svn)|(cvs)|(svk))/o) {429 if ($scheme =~ /^((svn)|(cvs)|(svk))/o) { 428 430 pb_system("cd $dir && $vcscmd ci -m \"$msg\" .","Checking in $dir "); 429 431 } elsif ($scheme =~ /^git/) { … … 472 474 my $l = undef; 473 475 474 if ( ($scheme =~ /^((svn)|(cvs)|(svk))/o) {476 if ($scheme =~ /^((svn)|(cvs)|(svk))/o) { 475 477 open(PIPE,"$vcscmd diff $dir |") || die "Unable to get $vcscmd diff from $dir"; 476 478 $l = 0;
Note:
See TracChangeset
for help on using the changeset viewer.