8 if ($arg eq '-v' or $arg eq '--verbose') {
11 warn "Unrecognized option: $arg\n";
15 local (*AVAILABLE, *STATUS);
16 open AVAILABLE, '</var/lib/dpkg/available' or
17 die "Can't open available file: $!";
18 open STATUS, '</var/lib/dpkg/status' or die "Can't open status file: $!";
20 my (%available, %status);
29 elsif (/^Version: (.*)/)
31 $available{$package} = $1;
42 elsif (/^Version: (.*)/)
44 $status{$package} = $1;
52 foreach my $package (sort keys %available)
54 my ($av, $st) = ($available{$package}, $status{$package});
58 print "!!! $package $av $st\n";
60 print "$package $av $st\n";