Not a bug. So wrong usage.

while ( $sth->{Active} and
        $rowcache=$sth->fetchall_arrayref({}, $max_rows)
) {
    ...
}
[download]

See the DBI documentation: the last possible fetch in a fetchall will call $sth->finish.