From: Don Armstrong Date: Fri, 21 Mar 2014 02:39:57 +0000 (-0700) Subject: don't chdir; open the file directly in scanspool X-Git-Url: https://git.donarmstrong.com/?p=bugscan.git;a=commitdiff_plain;h=4fb16e7d9f19f2fe9fb6cf66260f1e168ef86303 don't chdir; open the file directly in scanspool --- diff --git a/scanlib.pm b/scanlib.pm index 7cd2e63..f332917 100644 --- a/scanlib.pm +++ b/scanlib.pm @@ -127,8 +127,6 @@ sub scanspool() { 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); @@ -149,7 +147,6 @@ sub scanspooldir { 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$// } @@ -158,7 +155,7 @@ sub scanspooldir { 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 = {