Changeset 1302 in ProjectBuilder


Ignore:
Timestamp:
May 18, 2011, 6:53:12 PM (13 years ago)
Author:
Bruno Cornec
Message:

devel/svk-commitnUF8h.tmp

File:
1 edited

Legend:

Unmodified
Added
Removed
  • devel/pb/lib/ProjectBuilder/CMS.pm

    r1208 r1302  
    488488my $vcscmd = pb_cms_cmd($scheme);
    489489
    490 if (($scheme =~ /^svn/) || ($scheme =~ /^svk/) || ($scheme =~ /^hg/) || ($scheme =~ /^git/) || ($scheme =~ /^cvs/)) {
     490if (($scheme =~ /^svn/) || ($scheme =~ /^cvs/) || ($scheme =~ /^svk/)) {
    491491    pb_system("$vcscmd up $dir","Updating $dir ");
    492492} elsif (($scheme eq "flat") || ($scheme eq "ftp") || ($scheme eq "http"))   {
     
    515515$msg = "Project $ENV{PBPROJ} creation" if (defined $pbinit);
    516516
    517 if (($scheme =~ /^svn/) || ($scheme =~ /^svk/) || ($scheme =~ /^hg/) || ($scheme =~ /^git/) || ($scheme =~ /^cvs/)) {
     517if (($scheme =~ /^svn/) || ($scheme =~ /^cvs/) || ($scheme =~ /^svk/)) {
    518518    pb_system("cd $dir ; $vcscmd ci -m \"$msg\" .","Checking in $dir ");
    519519} elsif (($scheme eq "flat") || ($scheme eq "ftp") || ($scheme eq "http"))   {
     
    537537my $vcscmd = pb_cms_cmd($scheme);
    538538
    539 if (($scheme =~ /^svn/) || ($scheme =~ /^svk/) || ($scheme =~ /^hg/) || ($scheme =~ /^git/) || ($scheme =~ /^cvs/)) {
     539if (($scheme =~ /^svn/) || ($scheme =~ /^cvs/) || ($scheme =~ /^svk/)) {
    540540    pb_system("$vcscmd add $f","Adding $f to VCS ");
    541541} elsif (($scheme eq "flat") || ($scheme eq "ftp") || ($scheme eq "http"))   {
     
    560560my $l = undef;
    561561
    562 if (($scheme =~ /^svn/) || ($scheme =~ /^svk/) || ($scheme =~ /^hg/) || ($scheme =~ /^git/) || ($scheme =~ /^cvs/)) {
     562if (($scheme =~ /^svn/) || ($scheme =~ /^cvs/) || ($scheme =~ /^svk/)) {
    563563    open(PIPE,"$vcscmd diff $dir |") || die "Unable to get $vcscmd diff from $dir";
    564564    $l = 0;
     
    715715    # which needs it to trigger correct behaviour
    716716    $uri =~ s/^svk://;
    717     if ($cmsurl ne $uri) {
     717    if (($scheme2 =~ /^git/) || ($scheme2 =~ /^hg/)) {
     718        # These VCS manages branches internally not with different tree structures
     719        # Assuming it's correct for now.
     720    } elsif ($cmsurl ne $uri) {
    718721        # The local content doesn't correpond to the repository
    719722        pb_log(0,"ERROR: Inconsistency detected:\n");
Note: See TracChangeset for help on using the changeset viewer.