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

Timestamp:

May 21, 2012, 3:19:04 AM (12 years ago)

Author:

Bruno Cornec

Message:

• pb: Update documentation, the newproj docs were missing an important argument. Expanded out the newproj documentation. Fixed the cms2build documentation to match the same style as the other documentation. (Eric Anderson)
• CMS.pm/VCS.pm: Tolerate the file: scheme -- it was tolerated in some places but not others. (Eric Anderson)

File:

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

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

@@ -328 +328 @@
     $newurl = pb_vcs_mod_htftp($newurl,"svn");
     pb_system("$vcscmd copy -m \"Creation of $newurl from $oldurl\" $oldurl $newurl","Copying $oldurl to $newurl ");
-} elsif (($scheme eq "flat") || ($scheme eq "ftp") || ($scheme eq "http"))   {
+} elsif ($scheme =~ /^(flat)|(ftp)|(http)|(file)\b/o) {
+    # Nothing to do.
 } else {
     die "cms $scheme unknown for project management";
@@ -406 +407 @@
         pb_system("(cd $d && $vcscmd pull)", "Updating $d ");
     }
-} elsif (($scheme eq "flat") || ($scheme eq "ftp") || ($scheme eq "http"))   {
+} elsif ($scheme =~ /^(flat)|(ftp)|(http)|(file)\b/o) {
+    # Nothing to do.
 } else {
     die "cms $scheme unknown";
@@ -431 +433 @@
 } elsif ($scheme =~ /^git/) {
     pb_system("cd $dir && $vcscmd commit -a -m \"$msg\"", "Checking in $dir ");
-} elsif (($scheme eq "flat") || ($scheme eq "ftp") || ($scheme eq "http"))   {
+} elsif ($scheme =~ /^(flat)|(ftp)|(http)|(file)\b/o) {
+    # Nothing to do.
 } else {
     die "cms $scheme unknown";
@@ -453 +456 @@
 if ($scheme =~ /^((hg)|(git)|(svn)|(svk)|(cvs))/o) {
     pb_system("$vcscmd add ".join(' ',@f),"Adding ".join(' ',@f)." to VCS ");
-} elsif (($scheme eq "flat") || ($scheme eq "ftp") || ($scheme eq "http"))   {
+} elsif ($scheme =~ /^(flat)|(ftp)|(http)|(file)\b/o) {
+    # Nothing to do.
 } else {
     die "cms $scheme unknown";
@@ -482 +486 @@
         $l++;
     }
-} elsif (($scheme eq "flat") || ($scheme eq "ftp") || ($scheme eq "http"))   {
+} elsif ($scheme =~ /^(flat)|(ftp)|(http)|(file)\b/o) {
     $l = 0;
 } else {