From 427bd0165d0b8bec0e93cc2b262fcbe0d3cb5855 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Mon, 12 Mar 2012 23:41:57 +0000 Subject: [PATCH 1/1] alter index adding dbg statement order --- perl/DXSql/SQLite.pm | 4 ++-- perl/DXSql/mysql.pm | 4 ++-- perl/Version.pm | 4 ++-- 3 files changed, 6 insertions(+), 6 deletions(-) diff --git a/perl/DXSql/SQLite.pm b/perl/DXSql/SQLite.pm index 8cb1606d..14eb0621 100644 --- a/perl/DXSql/SQLite.pm +++ b/perl/DXSql/SQLite.pm @@ -79,10 +79,10 @@ ipaddr text sub spot_add_indexes { my $self = shift; - $self->do('create index spot_ix1 on spot(time desc)'); dbg('adding spot index ix1'); - $self->do('create index spot_ix2 on spot(spotcall asc)'); + $self->do('create index spot_ix1 on spot(time desc)'); dbg('adding spot index ix2'); + $self->do('create index spot_ix2 on spot(spotcall asc)'); } diff --git a/perl/DXSql/mysql.pm b/perl/DXSql/mysql.pm index dee586f7..f5a27a07 100644 --- a/perl/DXSql/mysql.pm +++ b/perl/DXSql/mysql.pm @@ -79,10 +79,10 @@ ipaddr varchar(40) sub spot_add_indexes { my $self = shift; - $self->do('create index spot_ix1 on spot(time desc)'); dbg('adding spot index ix1'); - $self->do('create index spot_ix2 on spot(spotcall asc)'); + $self->do('create index spot_ix1 on spot(time desc)'); dbg('adding spot index ix2'); + $self->do('create index spot_ix2 on spot(spotcall asc)'); } diff --git a/perl/Version.pm b/perl/Version.pm index b30c836b..2e78796b 100644 --- a/perl/Version.pm +++ b/perl/Version.pm @@ -11,7 +11,7 @@ use vars qw($version $subversion $build $gitversion); $version = '1.55'; $subversion = '0'; -$build = '108'; -$gitversion = 'a50f448'; +$build = '110'; +$gitversion = '61885d0'; 1; -- 2.43.0