use vars qw($DEBUG);
use Debbugs::Common (qw(checkpid lockpid get_hashname getparsedaddrs getbugcomponent make_list getsourcemaintainers),
- qw(hash_slice));
+ qw(hash_slice open_compressed_file),);
use Debbugs::Config qw(:config);
use Debbugs::Status qw(read_bug split_status_fields);
use Debbugs::Log;
next;
}
my $rs = $s->resultset('Bug')->search({id=>$bug})->single();
- next if defined $rs and $stat->mtime < $rs->last_modified()->epoch();
+ next if defined $rs and $stat->mtime <= $rs->last_modified()->epoch();
push @bugs_to_update, $bug;
}
} else {
}
eval {
$s->txn_do(sub {
- for my $bug (@bugs) {
+ for my $bug (@bugs_to_update) {
load_bug(db => $s,
bug => $bug,
tags => \%tags,
}
if ($options{quick}) {
my $rs = $s->resultset('Bug')->search({bug=>$bug})->single();
- next if defined $rs and $stat->mtime < $rs->last_modified()->epoch();
+ next if defined $rs and $stat->mtime <= $rs->last_modified()->epoch();
}
eval {
load_bug_log(db => $s,
die "Unable to connect to database: ";
}
-sub open_compressed_file {
- my ($file) = @_;
- my $fh;
- my $mode = '<:encoding(UTF-8)';
- my @opts;
- if ($file =~ /\.gz$/) {
- $mode = '-|:encoding(UTF-8)';
- push @opts,'gzip','-dc';
- }
- if ($file =~ /\.xz$/) {
- $mode = '-|:encoding(UTF-8)';
- push @opts,'xz','-dc';
- }
- if ($file =~ /\.bz2$/) {
- $mode = '-|:encoding(UTF-8)';
- push @opts,'bzip2','-dc';
- }
- open($fh,$mode,@opts,$file);
- return $fh;
-}
-
sub read_release_file {
my ($file) = @_;
# parse release