autotest: remove unused boxname parameter from printbox()
This commit is contained in:
parent
9fbf5c2f6c
commit
6e56f39fa9
|
@ -417,7 +417,7 @@ sub showbox($)
|
||||||
for my $uid (sort { $a <=> $b } keys %$ms) {
|
for my $uid (sort { $a <=> $b } keys %$ms) {
|
||||||
push @bc, $$ms{$uid}[0], $uid, $$ms{$uid}[1];
|
push @bc, $$ms{$uid}[0], $uid, $$ms{$uid}[1];
|
||||||
}
|
}
|
||||||
printbox($bn, \@bc);
|
printbox(\@bc);
|
||||||
}
|
}
|
||||||
|
|
||||||
# $filename
|
# $filename
|
||||||
|
@ -632,10 +632,10 @@ sub ckchan($$)
|
||||||
return $rslt;
|
return $rslt;
|
||||||
}
|
}
|
||||||
|
|
||||||
# $box_name, \@box_state
|
# \@box_state
|
||||||
sub printbox($$)
|
sub printbox($)
|
||||||
{
|
{
|
||||||
my ($bn, $bs) = @_;
|
my ($bs) = @_;
|
||||||
|
|
||||||
print " [ $$bs[0],\n ";
|
print " [ $$bs[0],\n ";
|
||||||
my $frst = 1;
|
my $frst = 1;
|
||||||
|
@ -673,8 +673,8 @@ sub printchan($)
|
||||||
{
|
{
|
||||||
my ($cs) = @_;
|
my ($cs) = @_;
|
||||||
|
|
||||||
printbox("far", $$cs[0]);
|
printbox($$cs[0]);
|
||||||
printbox("near", $$cs[1]);
|
printbox($$cs[1]);
|
||||||
printstate($$cs[2]);
|
printstate($$cs[2]);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user