my ($pkg, $ignores) = @_;
my $ignore_this = 0;
- for my $ig (@$ignores) {
+ for my $ignore (@$ignores) {
+ my $ig = $ignore;
return 1 if ($ig eq $pkg);
if (substr($ig,0,1) eq '/') {
substr($ig, 0, 1, '');
'long' => "%d out of date packages: %s",
'short' => "%d updates",
'status' => 'WARNING' },
- { 'key' => 'obsolete-ignored',
- 'listpackages' => 1,
- 'long' => "%d local or obsolete packages (ignored): %s",
- 'short' => "%d obs(ign)",
- 'status' => 'OK' },
{ 'key' => 'current',
'listpackages' => 0,
'long' => "%d packages current.",
'short' => "%d ok",
'status' => 'OK' },
+ { 'key' => 'obsolete-ignored',
+ 'listpackages' => 1,
+ 'long' => "%d whitelisted local or obsolete packages: %s",
+ 'short' => "%d obs(ignored)",
+ 'status' => 'OK' },
{ 'key' => 'rc',
'listpackages' => 1,
'long' => "%d packages removed but not purged: %s",