-
- my $sth = $dbh->prepare($sql_count);
- $sth->execute();
- my ($results) = $sth->fetchrow_array();
-
- $sth = $dbh->prepare($sql_results);
- $sth->execute( $offset );
-
- if ($sth->rows != $results) {
- my $bug = "$0 BUG: [[ $sql_count ]] = $results while [[ $sql_results ]] = " . $sth->rows;
- $bug =~ s/\s+/ /gs;
- print STDERR "$bug\n";
- }