Fix AIX deletion

This commit is contained in:
Jamie Cameron
2008-07-10 09:16:56 +00:00
parent 3bfa1e8446
commit ea35e6c895

View File

@@ -211,7 +211,7 @@ sub delete_printer
{
# Find old entry
local @qc = &get_qconfig();
local ($real) = grep { $_->{'name'} eq $_[0]->{'name'} } @qc;
local ($real) = grep { $_->{'name'} eq $_[0] } @qc;
local ($device) = grep { $_->{'name'} eq $real->{'values'}->{'device'} &&
$_->{'line'} > $real->{'line'} } @qc;