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

parallel: Give warning if \0 is contained in arguments.

Browse source
This commit is contained in:
Ole Tange 2016-03-22 20:08:38 +01:00
parent 2467d0b5be
commit feb914f4ef
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/parallel
View file

@ -9142,6 +9142,12 @@ sub get {
return $ret; return $ret;
} }
my $ret = $self->{'arg_sub_queue'}->get(); my $ret = $self->{'arg_sub_queue'}->get();
if($ret and
grep { index($_->orig(),"\0") != -1 } map { @$_ } $ret) {
::warning("a NUL character occurred in the input.",
"It cannot be passed through in the argument list.",
"Did you mean to use the --null option?");
}
if(defined $Global::max_number_of_args if(defined $Global::max_number_of_args
and $Global::max_number_of_args == 0) { and $Global::max_number_of_args == 0) {
::debug("run", "Read 1 but return 0 args\n"); ::debug("run", "Read 1 but return 0 args\n");