- Timestamp:
- Apr 30, 2012, 2:48:37 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
TabularUnified devel/pb-modules/lib/ProjectBuilder/VCS.pm ¶
r1469 r1492 388 388 This function updates a local directory with the VCS content. 389 389 The first parameter is the schema of the VCS systems (svn, cvs, svn+ssh, ...) 390 The second parameter is the directory to update.390 The second parameter is the list of directory to update. 391 391 392 392 =cut … … 394 394 sub pb_vcs_up { 395 395 my $scheme = shift; 396 my $dir = shift;396 my @dir = shift; 397 397 my $vcscmd = pb_vcs_cmd($scheme); 398 398 399 399 if (($scheme =~ /^svn/) || ($scheme =~ /^cvs/) || ($scheme =~ /^svk/)) { 400 pb_system("$vcscmd up $dir","Updating $dir ");400 pb_system("$vcscmd up ".join(' ',@dir),"Updating ".join(' ',@dir)); 401 401 } elsif (($scheme eq "flat") || ($scheme eq "ftp") || ($scheme eq "http")) { 402 402 } else { … … 433 433 This function adds to a VCS content from a local directory. 434 434 The first parameter is the schema of the VCS systems (svn, cvs, svn+ssh, ...) 435 The second parameter is thedirectory/file to add.435 The second parameter is a list of directory/file to add. 436 436 437 437 =cut … … 439 439 sub pb_vcs_add { 440 440 my $scheme = shift; 441 my $f = shift;441 my @f = shift; 442 442 my $vcscmd = pb_vcs_cmd($scheme); 443 443 444 444 if (($scheme =~ /^svn/) || ($scheme =~ /^cvs/) || ($scheme =~ /^svk/)) { 445 pb_system("$vcscmd add $f","Adding $fto VCS ");445 pb_system("$vcscmd add ".join(' ',@f),"Adding ".join(' ',@f)." to VCS "); 446 446 } elsif (($scheme eq "flat") || ($scheme eq "ftp") || ($scheme eq "http")) { 447 447 } else { 448 448 die "cms $scheme unknown"; 449 449 } 450 pb_vcs_up($scheme, $f);450 pb_vcs_up($scheme,@f); 451 451 } 452 452
Note:
See TracChangeset
for help on using the changeset viewer.