9 if ($arg eq '-v' or $arg eq '--verbose') {
12 warn "Unrecognized option: $arg\n";
16 local (*AVAILABLE, *STATUS);
17 open AVAILABLE, '</var/lib/dpkg/available' or
18 die "Can't open available file: $!";
19 open STATUS, '</var/lib/dpkg/status' or die "Can't open status file: $!";
21 my (%available, %status);
30 elsif (/^Version: (.*)/)
32 $available{$package} = $1;
43 elsif (/^Version: (.*)/)
45 $status{$package} = $1;
53 foreach my $package (sort keys %available)
55 my ($av, $st) = ($available{$package}, $status{$package});
59 print "!!! $package $av $st\n";
61 print "$package $av $st\n";