tange/parallel
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/parallel.git synced 2024-11-22 05:57:54 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

--basefile fixed bug for sshlogin ':'

Browse source
This commit is contained in:
Ole Tange 2010-06-10 03:24:53 +02:00
parent db1f767749
commit 47153f2bae
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/parallel
View file

@ -2735,6 +2735,7 @@ sub setup_basefile {
# Can we do this in parallel?
my $cmd = "";
for my $sshlogin (keys %Global::host) {
if($sshlogin eq ":") { next }
my ($sshcmd,$serverlogin) = sshcommand_of_sshlogin($sshlogin);
my $rsync_opt = "-rlDzR -e".shell_quote($sshcmd);
for my $file (@::opt_basefile) {
@ -2756,6 +2757,7 @@ sub cleanup_basefile {
# Remove the basefiles transferred
my $cmd="";
for my $sshlogin (keys %Global::host) {
if($sshlogin eq ":") { next }
my ($sshcmd,$serverlogin) = sshcommand_of_sshlogin($sshlogin);
for my $file (@::opt_basefile) {
$cmd .= "$sshcmd $serverlogin rm -f ".shell_quote(shell_quote($file))."&";
@ -2988,7 +2990,6 @@ $Global::control_path = 0;
# TODO --max-number-of-jobs print the system limited number of jobs
# TODO Debian package
# TODO transfer a script to be run - are permissions kept?
# TODO try transfer + return of file beginning with :
# TODO to kill from a run script parallel should set PARALLEL_PID that can be sig termed