percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-11 05:29:30 +00:00
Code Issues Packages Projects Releases Wiki Activity

Save first lower boundary.

Browse Source
This commit is contained in:
Daniel Nichter
2011-11-14 17:49:42 -07:00
parent 5465634885
commit 2bf6365189
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lib/NibbleIterator.pm
View File

@@ -331,6 +331,7 @@ sub statements {
sub boundaries { sub boundaries {
my ($self) = @_; my ($self) = @_;
return { return {
first_lower => $self->{first_lower},
lower => $self->{lower}, lower => $self->{lower},
upper => $self->{upper}, upper => $self->{upper},
next_lower => $self->{next_lower}, next_lower => $self->{next_lower},
@@ -519,7 +520,8 @@ sub _get_bounds {
my $dbh = $self->{Cxn}->dbh(); 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})); MKDEBUG && _d('First lower boundary:', Dumper($self->{next_lower}));
$self->{last_upper} = $dbh->selectrow_arrayref($self->{last_ub_sql}); $self->{last_upper} = $dbh->selectrow_arrayref($self->{last_ub_sql});
@@ -630,6 +632,7 @@ sub DESTROY {
my ( $self ) = @_; my ( $self ) = @_;
foreach my $key ( keys %$self ) { foreach my $key ( keys %$self ) {
if ( $key =~ m/_sth$/ ) { if ( $key =~ m/_sth$/ ) {
MKDEBUG && _d('Finish', $key);
$self->{$key}->finish(); $self->{$key}->finish();
} }
} }