From 2bf636518980e37badc9843ec6048de716a91b25 Mon Sep 17 00:00:00 2001 From: Daniel Nichter Date: Mon, 14 Nov 2011 17:49:42 -0700 Subject: [PATCH] Save first lower boundary. --- lib/NibbleIterator.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lib/NibbleIterator.pm b/lib/NibbleIterator.pm index c663ffe0..afef980c 100644 --- a/lib/NibbleIterator.pm +++ b/lib/NibbleIterator.pm @@ -331,6 +331,7 @@ sub statements { sub boundaries { my ($self) = @_; return { + first_lower => $self->{first_lower}, lower => $self->{lower}, upper => $self->{upper}, next_lower => $self->{next_lower}, @@ -519,7 +520,8 @@ sub _get_bounds { my $dbh = $self->{Cxn}->dbh(); - $self->{next_lower} = $dbh->selectrow_arrayref($self->{first_lb_sql}); + $self->{first_lower} = $dbh->selectrow_arrayref($self->{first_lb_sql}); + $self->{next_lower} = $self->{first_lower}; MKDEBUG && _d('First lower boundary:', Dumper($self->{next_lower})); $self->{last_upper} = $dbh->selectrow_arrayref($self->{last_ub_sql}); @@ -630,6 +632,7 @@ sub DESTROY { my ( $self ) = @_; foreach my $key ( keys %$self ) { if ( $key =~ m/_sth$/ ) { + MKDEBUG && _d('Finish', $key); $self->{$key}->finish(); } }