tange/parallel
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/parallel.git synced 2024-11-25 23:47:53 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

niceload: uniq bug when pressing Ctrl-C.

Browse source
This commit is contained in:
Ole Tange 2013-01-21 23:08:30 +01:00
parent efb467ef6e
commit 592a6482a8
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/niceload
View file

@ -24,7 +24,7 @@
use strict; use strict;
use Getopt::Long; use Getopt::Long;
$Global::progname="niceload"; $Global::progname="niceload";
$Global::version = 20121222; $Global::version = 20130117;
Getopt::Long::Configure("bundling","require_order"); Getopt::Long::Configure("bundling","require_order");
get_options_from_array(\@ARGV) || die_usage(); get_options_from_array(\@ARGV) || die_usage();
if($opt::version) { if($opt::version) {
@ -310,7 +310,7 @@ sub pgrp {
for(@{$self->{'pids'}}) { for(@{$self->{'pids'}}) {
push @pgrp,-getpgrp($_); push @pgrp,-getpgrp($_);
} }
@pgrp = uniq(@pgrp); @pgrp = ::uniq(@pgrp);
@{$self->{'pgrp'}} = @pgrp; @{$self->{'pgrp'}} = @pgrp;
} }
return @{$self->{'pgrp'}}; return @{$self->{'pgrp'}};