while() I have a simple question

I just ran into an issue where I was loosing literally half of some
expected data, which for a theoretical accounting system, would make for
some interesting audit trails (I already shave a fraction for myself,
but 50% will be noticeable ;)

Is my oversight as simple as knowing that the previous-to-patch while()
statement below is simply throwing the row into $_, and then push()ing
the *next* row into @uledger_entries?

--- ISP/trunk/lib/ISP/Ledger.pm 2009-07-24 01:17:20 UTC (rev 643)
+++ ISP/trunk/lib/ISP/Ledger.pm 2009-07-24 01:21:45 UTC (rev 644)
@@ -235,8 +235,8 @@

        my @uledger_entries;

-       while ($sth->fetchrow_hashref) {
-               push (@uledger_entries, $sth->fetchrow_hashref);
+       while (my $entry_ref = $sth->fetchrow_hashref) {
+               push (@uledger_entries, $entry_ref);
        }
        return \@uledger_entries;

Steve

smime.p7s
Description: S/MIME Cryptographic Signature