3 use vars qw($gVersionPackagesDir);
4 require '/etc/debbugs/config';
5 my $root = $gVersionPackagesDir;
9 use Debbugs::Versions::Dpkg;
12 mkdir $root or die "can't mkdir $root: $!\n";
15 my $tree = Debbugs::Versions->new(\&Debbugs::Versions::Dpkg::vercmp);
19 (my $pkg = $versions) =~ s{.*/}{};
21 my $pkghash = substr $pkg, 0, 1;
22 unless (-d "$root/$pkghash") {
23 mkdir "$root/$pkghash" or die "can't mkdir $root/$pkghash";
25 my $outfile = "$root/$pkghash/$pkg";
26 if (open PREV, "< $outfile") {
33 open OUT, "> $outfile" or die "can't open $outfile for writing: $!\n";
35 close OUT or die "can't close $outfile: $!\n";