Permalink
Browse files

bug fixes

  • Loading branch information...
1 parent d9cc15d commit 82cd5dea7043940b565767d7ef33f6d282578aaa @barbie committed Nov 12, 2012
Showing with 3 additions and 3 deletions.
  1. +3 −3 bin/cpanstats-sqlite
View
6 bin/cpanstats-sqlite
@@ -90,8 +90,8 @@ if($options{id} || $options{file}) {
my @rows = $options{LITESTATS}->get_query('array',$SQL{SelectMax});
my $id = @rows ? $rows[0]->[0] : 0;
my $next = $options{CPANSTATS}->iterator('array',$SQL{SelectNew},$id);
- while($row = $next->()) {
- $options{LITESTATS}->do_query($SQL{Insert},@$row});
+ while(my $row = $next->()) {
+ $options{LITESTATS}->do_query($SQL{Insert},@$row);
}
}
@@ -114,7 +114,7 @@ sub get_list {
while(<$fh>) {
next if(/^\s*$/); # ignore empty lines
s/\s+$//;
- push @list, {id=>$id} if($id);
+ push @list, {id=>$_} if($_);
}
$fh->close;

0 comments on commit 82cd5de

Please sign in to comment.