Changeset 1535 in ProjectBuilder for devel/pb-modules/lib/ProjectBuilder/VCS.pm
- Timestamp:
- May 13, 2012, 11:39:07 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb-modules/lib/ProjectBuilder/VCS.pm
r1493 r1535 14 14 15 15 use strict 'vars'; 16 use Carp 'confess'; 16 17 use Data::Dumper; 17 18 use English; … … 397 398 my $vcscmd = pb_vcs_cmd($scheme); 398 399 399 if (($scheme =~ /^ svn/) || ($scheme =~ /^cvs/) || ($scheme =~ /^svk/)) {400 if (($scheme =~ /^((svn)|(cvs)|(svk))/o) { 400 401 pb_system("$vcscmd up ".join(' ',@dir),"Updating ".join(' ',@dir)); 402 } elsif ($scheme =~ /^((hg)|(git))/o) { 403 pb_system("(cd $dir && $vcscmd pull)", "Updating $dir "); 401 404 } elsif (($scheme eq "flat") || ($scheme eq "ftp") || ($scheme eq "http")) { 402 405 } else { … … 420 423 my $vcscmd = pb_vcs_cmd($scheme); 421 424 422 if (($scheme =~ /^svn/) || ($scheme =~ /^cvs/) || ($scheme =~ /^svk/)) { 423 pb_system("cd $dir ; $vcscmd ci -m \"$msg\" .","Checking in $dir "); 425 if (($scheme =~ /^((svn)|(cvs)|(svk))/o) { 426 pb_system("cd $dir && $vcscmd ci -m \"$msg\" .","Checking in $dir "); 427 } elsif ($scheme =~ /^git/) { 428 pb_system("cd $dir && $vcscmd commit -a -m \"$msg\"", "Checking in $dir "); 424 429 } elsif (($scheme eq "flat") || ($scheme eq "ftp") || ($scheme eq "http")) { 425 430 } else { … … 442 447 my $vcscmd = pb_vcs_cmd($scheme); 443 448 444 if ( ($scheme =~ /^svn/) || ($scheme =~ /^cvs/) || ($scheme =~ /^svk/)) {449 if ($scheme =~ /^((hg)|(git)|(svn)|(svk)|(cvs))/o) { 445 450 pb_system("$vcscmd add ".join(' ',@f),"Adding ".join(' ',@f)." to VCS "); 446 451 } elsif (($scheme eq "flat") || ($scheme eq "ftp") || ($scheme eq "http")) { … … 465 470 my $l = undef; 466 471 467 if (($scheme =~ /^ svn/) || ($scheme =~ /^cvs/) || ($scheme =~ /^svk/)) {472 if (($scheme =~ /^((svn)|(cvs)|(svk))/o) { 468 473 open(PIPE,"$vcscmd diff $dir |") || die "Unable to get $vcscmd diff from $dir"; 469 474 $l = 0;
Note:
See TracChangeset
for help on using the changeset viewer.