alter index adding dbg statement order

diff --git a/perl/DXSql/SQLite.pm b/perl/DXSql/SQLite.pm
index 8cb1606d1584f6668c5e43896ac0217bb05f468f..14eb0621f96e85bbc3805daecd1200850041e168 100644 (file)
--- 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 dee586f76168c07504287a9365cddbff110db213..f5a27a0791b30e31e40ef27bfec05e3a2737dc97 100644 (file)
--- 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 b30c836bfd76ec0dfdee916e6f2ea37c4d6b08f2..2e78796b8f219d662ab051b70513d9e70e2d964f 100644 (file)
--- 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;