5 local (*AVAILABLE, *STATUS);
6 open AVAILABLE, '</var/lib/dpkg/available' or
7 die "Can't open available file: $!";
8 open STATUS, '</var/lib/dpkg/status' or die "Can't open status file: $!";
10 my (%available, %status);
19 elsif (/^Version: (.*)/)
21 $available{$package} = $1;
32 elsif (/^Version: (.*)/)
34 $status{$package} = $1;
42 foreach my $package (sort keys %available)
44 if (defined $status{$package})
46 print "!!! " if $available{$package} ne $status{$package};
47 print "$package $available{$package} $status{$package}\n";