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

parallel: defined(@array) is deprecated.

Browse source
This commit is contained in:
Ole Tange 2012-06-07 21:20:18 +02:00
parent 7570adf0cd
commit 9489733155
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
src/parallel
View file

@ -184,7 +184,7 @@ if($::opt_nonall or $::opt_onall) {
((defined $::opt_group) ? "-g" : ""), ((defined $::opt_group) ? "-g" : ""),
((defined $::opt_joblog) ? "--joblog $::opt_joblog" : ""), ((defined $::opt_joblog) ? "--joblog $::opt_joblog" : ""),
((defined $::opt_colsep) ? "--colsep ".shell_quote($::opt_colsep) : ""), ((defined $::opt_colsep) ? "--colsep ".shell_quote($::opt_colsep) : ""),
((defined @::opt_v) ? "-vv" : ""), ((@::opt_v) ? "-vv" : ""),
((defined $::opt_D) ? "-D" : ""), ((defined $::opt_D) ? "-D" : ""),
((defined $::opt_timeout) ? "--timeout ".$::opt_timeout : ""), ((defined $::opt_timeout) ? "--timeout ".$::opt_timeout : ""),
); );
@ -605,7 +605,7 @@ sub parse_options {
print STDERR "$Global::progname: -H has been retired. Use --halt.\n"; print STDERR "$Global::progname: -H has been retired. Use --halt.\n";
::wait_and_exit(255); ::wait_and_exit(255);
} }
if(defined @::opt_v) { $Global::verbose = $#::opt_v+1; } # Convert -v -v to v=2 if(@::opt_v) { $Global::verbose = $#::opt_v+1; } # Convert -v -v to v=2
$Global::debug = (defined $::opt_D); $Global::debug = (defined $::opt_D);
if(defined $::opt_X) { $Global::ContextReplace = 1; } if(defined $::opt_X) { $Global::ContextReplace = 1; }
if(defined $::opt_silent) { $Global::verbose = 0; } if(defined $::opt_silent) { $Global::verbose = 0; }
@ -651,9 +651,9 @@ sub parse_options {
if(defined $::opt_version) { version(); wait_and_exit(0); } if(defined $::opt_version) { version(); wait_and_exit(0); }
if(defined $::opt_bibtex) { bibtex(); wait_and_exit(0); } if(defined $::opt_bibtex) { bibtex(); wait_and_exit(0); }
if(defined $::opt_show_limits) { show_limits(); } if(defined $::opt_show_limits) { show_limits(); }
if(defined @::opt_sshlogin) { @Global::sshlogin = @::opt_sshlogin; } if(@::opt_sshlogin) { @Global::sshlogin = @::opt_sshlogin; }
if(defined @::opt_sshloginfile) { read_sshloginfiles(@::opt_sshloginfile); } if(@::opt_sshloginfile) { read_sshloginfiles(@::opt_sshloginfile); }
if(defined @::opt_return) { push @Global::ret_files, @::opt_return; } if(@::opt_return) { push @Global::ret_files, @::opt_return; }
if(not defined $::opt_recstart and if(not defined $::opt_recstart and
not defined $::opt_recend) { $::opt_recend = "\n"; } not defined $::opt_recend) { $::opt_recend = "\n"; }
if(not defined $::opt_blocksize) { $::opt_blocksize = "1M"; } if(not defined $::opt_blocksize) { $::opt_blocksize = "1M"; }
@ -704,7 +704,7 @@ sub parse_options {
$Global::grouped = 0; $Global::grouped = 0;
} }
} }
if(defined @::opt_trc) { if(@::opt_trc) {
push @Global::ret_files, @::opt_trc; push @Global::ret_files, @::opt_trc;
$::opt_transfer = 1; $::opt_transfer = 1;
$::opt_cleanup = 1; $::opt_cleanup = 1;
@ -1567,19 +1567,19 @@ sub parse_sshlogin {
if($::opt_transfer or @::opt_return or $::opt_cleanup or @::opt_basefile) { if($::opt_transfer or @::opt_return or $::opt_cleanup or @::opt_basefile) {
if(not remote_hosts()) { if(not remote_hosts()) {
# There are no remote hosts # There are no remote hosts
if(defined @::opt_trc) { if(@::opt_trc) {
print $Global::original_stderr print $Global::original_stderr
"parallel: Warning: --trc ignored as there are no remote --sshlogin\n"; "parallel: Warning: --trc ignored as there are no remote --sshlogin\n";
} elsif (defined $::opt_transfer) { } elsif (defined $::opt_transfer) {
print $Global::original_stderr print $Global::original_stderr
"parallel: Warning: --transfer ignored as there are no remote --sshlogin\n"; "parallel: Warning: --transfer ignored as there are no remote --sshlogin\n";
} elsif (defined @::opt_return) { } elsif (@::opt_return) {
print $Global::original_stderr print $Global::original_stderr
"parallel: Warning: --return ignored as there are no remote --sshlogin\n"; "parallel: Warning: --return ignored as there are no remote --sshlogin\n";
} elsif (defined $::opt_cleanup) { } elsif (defined $::opt_cleanup) {
print $Global::original_stderr print $Global::original_stderr
"parallel: Warning: --cleanup ignored as there are no remote --sshlogin\n"; "parallel: Warning: --cleanup ignored as there are no remote --sshlogin\n";
} elsif (defined @::opt_basefile) { } elsif (@::opt_basefile) {
print $Global::original_stderr print $Global::original_stderr
"parallel: Warning: --basefile ignored as there are no remote --sshlogin\n"; "parallel: Warning: --basefile ignored as there are no remote --sshlogin\n";
} }