my @dirs;
my $dir;
- chdir($bugcfg::spooldir) or die "chdir $bugcfg::spooldir: $!\n";
-
opendir(DIR, $bugcfg::spooldir) or die "opendir $bugcfg::spooldir: $!\n";
@dirs=grep(m/^\d+$/,readdir(DIR));
closedir(DIR);
my @archs_with_source = ( @bugcfg::architectures, 'source' );
- chdir($dir) or die "chdir $dir: $!\n";
opendir(DIR, $dir) or die "opendir $dir: $!\n";
@list = grep { s/\.summary$// }
closedir(DIR);
for $f (@list) {
- my $bug = Debbugs::Status::read_bug(summary => "$f.summary");
+ my $bug = Debbugs::Status::read_bug(summary => $dir.'/'."$f.summary");
next if (!defined($bug));
my $bi = {