7 use Debbugs::Config qw(:config);
9 use Debbugs::Versions::Dpkg;
10 my $root = $config{version_packages_dir};
14 mkdir $root or die "can't mkdir $root: $!\n";
17 my $tree = Debbugs::Versions->new(\&Debbugs::Versions::Dpkg::vercmp);
21 (my $pkg = $versions) =~ s{.*/}{};
23 my $pkghash = substr $pkg, 0, 1;
24 unless (-d "$root/$pkghash") {
25 mkdir "$root/$pkghash" or die "can't mkdir $root/$pkghash";
27 my $outfile = "$root/$pkghash/$pkg";
28 if (open PREV, "< $outfile") {
35 open OUT, "> $outfile" or die "can't open $outfile for writing: $!\n";
37 close OUT or die "can't close $outfile: $!\n";