niceload: uniq bug when pressing Ctrl-C.

This commit is contained in:
Ole Tange 2013-01-21 23:08:30 +01:00
parent efb467ef6e
commit 592a6482a8

View file

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