3 use MLDBM qw(DB_File Storable);
6 $MLDBM::DumpMeth=q(portable);
10 tie %db, "MLDBM", "versions.idx.new", O_CREAT|O_RDWR, 0664
11 or die "tie versions.idx.new: $!";
12 tie %db2, "MLDBM", "versions_time.idx.new",O_CREAT|O_RDWR, 0664
13 or die "tie versions_time.idx.new failed: $!";
18 print "$archive/$dist/$arch\n";
23 if (/^Package: (.*)/) { $p = $1; }
24 elsif (/^Version: (.*)/) { $v = $1; }
28 # we allow multiple versions in an architecture now; this
29 # should really only happen in the case of source, however.
30 push @{$tmp->{$dist}{$arch}}, $v;
33 $tmp->{$dist}{$arch}{$v} = $time if not exists
34 $tmp->{$dist}{$arch}{$v};