5 use Debbugs::Versions::Dpkg;
11 my ($pkg) = split /_/;
12 push @{$pkgs{$pkg}}, "$File::Find::dir/$_";
15 find(\&search, 'cl-data');
17 for my $pkg (sort keys %pkgs) {
18 print STDERR "$pkg\n";
19 my $tree = Debbugs::Versions->new(\&Debbugs::Versions::Dpkg::vercmp);
20 for my $file (@{$pkgs{$pkg}}) {
21 unless (open FILE, "< $file") {
22 warn "can't open $file: $!\n";
28 my $pkghash = substr $pkg, 0, 1;
29 unless (-d "pkg/$pkghash") {
30 unless (mkdir "pkg/$pkghash") {
31 warn "can't mkdir pkg/$pkghash: $!\n";
35 unless (open OUT, "> pkg/$pkghash/$pkg") {
36 warn "can't open pkg/$pkghash/$pkg for writing: $!\n";