From: Dirk Koopman Date: Mon, 12 Mar 2012 23:41:57 +0000 (+0000) Subject: alter index adding dbg statement order X-Git-Tag: 1.57~27 X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=427bd0165d0b8bec0e93cc2b262fcbe0d3cb5855;hp=61885d0dba3c8e06146aabb40031609ef1eb5b2e;p=spider.git alter index adding dbg statement order --- 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;