Changeset 1539 in ProjectBuilder for devel/pb-modules/lib/ProjectBuilder/VCS.pm

Timestamp:

May 13, 2012, 12:21:51 PM (12 years ago)

Author:

Bruno Cornec

Message:

• checking packages is allowed to fail
• Fix syntax error introduced by a previous patch
• When using git and pb_vcs_up, for git we need to loop on all the dirs passed (change of interface after Eric's patch)

File:

• devel/pb-modules/lib/ProjectBuilder/VCS.pm (modified) (3 diffs)

devel/pb-modules/lib/ProjectBuilder/VCS.pm

@@ -400 +400 @@
 my $vcscmd = pb_vcs_cmd($scheme);
 
-if (($scheme =~ /^((svn)|(cvs)|(svk))/o) {
+if ($scheme =~ /^((svn)|(cvs)|(svk))/o) {
     pb_system("$vcscmd up ".join(' ',@dir),"Updating ".join(' ',@dir));
 } elsif ($scheme =~ /^((hg)|(git))/o) {
-    pb_system("(cd $dir && $vcscmd pull)", "Updating $dir ");
+    foreach my $d (@dir) {
+        pb_system("(cd $d && $vcscmd pull)", "Updating $d ");
+    }
 } elsif (($scheme eq "flat") || ($scheme eq "ftp") || ($scheme eq "http"))   {
 } else {
@@ -425 +427 @@
 my $vcscmd = pb_vcs_cmd($scheme);
 
-if (($scheme =~ /^((svn)|(cvs)|(svk))/o) {
+if ($scheme =~ /^((svn)|(cvs)|(svk))/o) {
     pb_system("cd $dir && $vcscmd ci -m \"$msg\" .","Checking in $dir ");
 } elsif ($scheme =~ /^git/) {
@@ -472 +474 @@
 my $l = undef;
 
-if (($scheme =~ /^((svn)|(cvs)|(svk))/o) {
+if ($scheme =~ /^((svn)|(cvs)|(svk))/o) {
     open(PIPE,"$vcscmd diff $dir |") || die "Unable to get $vcscmd diff from $dir";
     $l = 0;