Re: bug in DBD::MySQL on Ubuntu / Sarge

Hi Patrick,

I have changed the cancel subroutine to print out the substr expression:

sub cancel {
 my ( $dcref ) = @_;
 print  "DCREF: $dcref\n";
 print "update update_bug set status = 5 where k = ? ", substr( $dcref, -11 ), 
"\n";
 $dbh->do( "update update_bug set status = 5 where k = ?", undef, substr( 
$dcref, -11 ) );
}
 

The output from the program now is:

martin@chadwick:~$ perl -w ~/ed/adhoc/update-bug
DCREF: 4000930012345671
update update_bug set status = 5 where k = ? 30012345671
DCREF: 4000930012345671
update update_bug set status = 5 where k = ? 30012345671
DCREF: 4000930012345671
update update_bug set status = 5 where k = ? 30012345671
DCREF: 4000930012345671
update update_bug set status = 5 where k = ? 30012345671
 

Which is what I'd expect, however the query log still shows:

                  4655 Query       SET AUTOCOMMIT=1
                  4655 Query       drop table if exists update_bug
                  4655 Query       create table update_bug( k int not null 
primary key, status int not null )
                  4655 Query       update update_bug set status = 5 where k = 
'30012345671'
                  4655 Query       update update_bug set status = 5 where k = 
'30012345671'
                  4655 Query       update update_bug set status = 5 where k = 
'30012345671'
                  4655 Query       update update_bug set status = 5 where k = 
NULL
                  4655 Query       update update_bug set status = 5 where k = 
NULL
                  4655 Query       update update_bug set status = 5 where k = 
NULL
                  4655 Quit
 

I have raised this issue through the MySQL Network, and they have raised 
a bug.  They tried the script on Suse, and the same problem appears.

I have downloaded the latest DBD (3.0004) and the problem still applies 
(this linked against the 5.0.20a client libraries).   Poking around in 
dbdimp.c, I noticed that a whole lot of debug switches on if you set 
dbis->debug to 2, so in mysql_st_internal_execute, I set dbis->debug to 
2, but then the problem goes away.   Very frustrating.  (By the way, 
what is the proper way to set debugging on ?)

My plan of action is to attempt to compile the woody DBD (v1.22 !) on 
sarge/perl 5.8.4 and see if that works - but the version might be too 
old to work with the new Perl.   Probably easier to compile the newest 
DBD on woody against Perl 5.6 and see if the problem follows with it.

I notice in the release email for DBD 3.0004 that you say threading must 
be switched off on Solaris.  The version of Perl on sarge / ubuntu has 
threading switched on.   I don't know how much of this is relevant, but 
below I include the output of Perl -V for the two hosts the script fails 
on (Sarge and Ubuntu), and the one it works on (Woody).

regards,
Martin


sarge: perl -V
Summary of my perl5 (revision 5 version 8 subversion 4) configuration:
 Platform:
   osname=linux, osvers=2.6.15, archname=i386-linux-thread-multi
   uname='linux ninsei 2.6.15 #1 smp preempt sat jan 7 12:47:52 pst 
2006 i686 gnulinux '
   config_args='-Dusethreads -Duselargefiles -Dccflags=-DDEBIAN 
-Dcccdlflags=-fPIC -Darchname=i386-linux -Dprefix=/usr 
-Dprivlib=/usr/share/perl/5.8 -Darchlib=/usr/lib/perl/5.8 
-Dvendorprefix=/usr -Dvendorlib=/usr/share/perl5 
-Dvendorarch=/usr/lib/perl5 -Dsiteprefix=/usr/local 
-Dsitelib=/usr/local/share/perl/5.8.4 
-Dsitearch=/usr/local/lib/perl/5.8.4 -Dman1dir=/usr/share/man/man1 
-Dman3dir=/usr/share/man/man3 -Dsiteman1dir=/usr/local/man/man1 
-Dsiteman3dir=/usr/local/man/man3 -Dman1ext=1 -Dman3ext=3perl 
-Dpager=/usr/bin/sensible-pager -Uafs -Ud_csh -Uusesfio -Uusenm 
-Duseshrplib -Dlibperl=libperl.so.5.8.4 -Dd_dosuid -des'
   hint=recommended, useposix=true, d_sigaction=define
   usethreads=define use5005threads=undef useithreads=define 
usemultiplicity=define
   useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
   use64bitint=undef use64bitall=undef uselongdouble=undef
   usemymalloc=n, bincompat5005=undef
 Compiler:
   cc='cc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS 
-DDEBIAN -fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE 
-D_FILE_OFFSET_BITS=64',
   optimize='-O2',
   cppflags='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBIAN 
-fno-strict-aliasing -I/usr/local/include'
   ccversion='', gccversion='3.3.5 (Debian 1:3.3.5-13)', gccosandvers=''
   intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
   d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
   ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', 
lseeksize=8
   alignbytes=4, prototype=define
 Linker and Libraries:
   ld='cc', ldflags =' -L/usr/local/lib'
   libpth=/usr/local/lib /lib /usr/lib
   libs=-lgdbm -lgdbm_compat -ldb -ldl -lm -lpthread -lc -lcrypt
   perllibs=-ldl -lm -lpthread -lc -lcrypt
   libc=/lib/libc-2.3.2.so, so=so, useshrplib=true, 
libperl=libperl.so.5.8.4
   gnulibc_version='2.3.2'
 Dynamic Linking:
   dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
   cccdlflags='-fPIC', lddlflags='-shared -L/usr/local/lib'


Characteristics of this binary (from libperl):
 Compile-time options: MULTIPLICITY USE_ITHREADS USE_LARGE_FILES 
PERL_IMPLICIT_CONTEXT
 Built under linux
 Compiled at Jan 12 2006 14:54:46
 @INC:
   /etc/perl
   /usr/local/lib/perl/5.8.4
   /usr/local/share/perl/5.8.4
   /usr/lib/perl5
   /usr/share/perl5
   /usr/lib/perl/5.8
   /usr/share/perl/5.8
   /usr/local/lib/site_perl
   .


Ubuntu: perl -V

Summary of my perl5 (revision 5 version 8 subversion 4) configuration:
 Platform:
   osname=linux, osvers=2.6.8.1, archname=i386-linux-thread-multi
   uname='linux terranova 2.6.8.1 #1 smp sat feb 26 13:03:40 utc 2005 
i686 gnulinux '
   config_args='-Dusethreads -Duselargefiles -Dccflags=-DDEBIAN 
-Dcccdlflags=-fPIC -Darchname=i386-linux -Dprefix=/usr 
-Dprivlib=/usr/share/perl/5.8 -Darchlib=/usr/lib/perl/5.8 
-Dvendorprefix=/usr -Dvendorlib=/usr/share/perl5 
-Dvendorarch=/usr/lib/perl5 -Dsiteprefix=/usr/local 
-Dsitelib=/usr/local/share/perl/5.8.4 
-Dsitearch=/usr/local/lib/perl/5.8.4 -Dman1dir=/usr/share/man/man1 
-Dman3dir=/usr/share/man/man3 -Dsiteman1dir=/usr/local/man/man1 
-Dsiteman3dir=/usr/local/man/man3 -Dman1ext=1 -Dman3ext=3perl 
-Dpager=/usr/bin/sensible-pager -Uafs -Ud_csh -Uusesfio -Uusenm 
-Duseshrplib -Dlibperl=libperl.so.5.8.4 -Dd_dosuid -des'
   hint=recommended, useposix=true, d_sigaction=define
   usethreads=define use5005threads=undef useithreads=define 
usemultiplicity=define
   useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
   use64bitint=undef use64bitall=undef uselongdouble=undef
   usemymalloc=n, bincompat5005=undef
 Compiler:
   cc='cc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS 
-DDEBIAN -fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE 
-D_FILE_OFFSET_BITS=64',
   optimize='-O2',
   cppflags='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBIAN 
-fno-strict-aliasing -I/usr/local/include'
   ccversion='', gccversion='3.3.4 (Debian 1:3.3.4-9ubuntu5)', 
gccosandvers=''
   intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
   d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
   ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', 
lseeksize=8
   alignbytes=4, prototype=define
 Linker and Libraries:
   ld='cc', ldflags =' -L/usr/local/lib'
   libpth=/usr/local/lib /lib /usr/lib
   libs=-lgdbm -lgdbm_compat -ldb -ldl -lm -lpthread -lc -lcrypt
   perllibs=-ldl -lm -lpthread -lc -lcrypt
   libc=/lib/libc-2.3.2.so, so=so, useshrplib=true, 
libperl=libperl.so.5.8.4
   gnulibc_version='2.3.2'
 Dynamic Linking:
   dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
   cccdlflags='-fPIC', lddlflags='-shared -L/usr/local/lib'


Characteristics of this binary (from libperl):
 Compile-time options: MULTIPLICITY USE_ITHREADS USE_LARGE_FILES 
PERL_IMPLICIT_CONTEXT
 Built under linux
 Compiled at Mar  9 2005 11:10:00
 @INC:
   /etc/perl
   /usr/local/lib/perl/5.8.4
   /usr/local/share/perl/5.8.4
   /usr/lib/perl5
   /usr/share/perl5
   /usr/lib/perl/5.8
   /usr/share/perl/5.8
   /usr/local/lib/site_perl
   .


Woody: perl -V
Summary of my perl5 (revision 5.0 version 6 subversion 1) configuration:
 Platform:
   osname=linux, osvers=2.4.28-es, archname=i386-linux
   uname='linux gluck 2.4.28-es #1 smp wed jan 12 09:55:22 est 2005 
i686 unknown '
   config_args='-Dccflags=-DDEBIAN -Dcccdlflags=-fPIC 
-Darchname=i386-linux -Dprefix=/usr -Dprivlib=/usr/share/perl/5.6.1 
-Darchlib=/usr/lib/perl/5.6.1 -Dvendorprefix=/usr 
-Dvendorlib=/usr/share/perl5 -Dvendorarch=/usr/lib/perl5 
-Dsiteprefix=/usr/local -Dsitelib=/usr/local/share/perl/5.6.1 
-Dsitearch=/usr/local/lib/perl/5.6.1 -Dman1dir=/usr/share/man/man1 
-Dman3dir=/usr/share/man/man3 -Dman1ext=1 -Dman3ext=3perl 
-Dpager=/usr/bin/sensible-pager -Uafs -Ud_csh -Uusesfio -Duseshrplib 
-Dlibperl=libperl.so.5.6.1 -Dd_dosuid -des'
   hint=recommended, useposix=true, d_sigaction=define
   usethreads=undef use5005threads=undef useithreads=undef 
usemultiplicity=undef
   useperlio=undef d_sfio=undef uselargefiles=define usesocks=undef
   use64bitint=undef use64bitall=undef uselongdouble=undef
 Compiler:
   cc='cc', ccflags ='-DDEBIAN -fno-strict-aliasing 
-I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
   optimize='-O2',
   cppflags='-DDEBIAN -fno-strict-aliasing -I/usr/local/include'
   ccversion='', gccversion='2.95.4 20011002 (Debian prerelease)', 
gccosandvers=''
   intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
   d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
   ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', 
lseeksize=8
   alignbytes=4, usemymalloc=n, prototype=define
 Linker and Libraries:
   ld='cc', ldflags =' -L/usr/local/lib'
   libpth=/usr/local/lib /lib /usr/lib
   libs=-lgdbm -ldb -ldl -lm -lc -lcrypt
   perllibs=-ldl -lm -lc -lcrypt
   libc=/lib/libc-2.2.5.so, so=so, useshrplib=true, 
libperl=libperl.so.5.6.1
 Dynamic Linking:
   dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
   cccdlflags='-fPIC', lddlflags='-shared -L/usr/local/lib'


Characteristics of this binary (from libperl):
 Compile-time options: USE_LARGE_FILES
 Built under linux
 Compiled at Mar 18 2005 16:57:39
 @INC:
   /usr/local/lib/perl/5.6.1
   /usr/local/share/perl/5.6.1
   /usr/lib/perl5
   /usr/share/perl5
   /usr/lib/perl/5.6.1
   /usr/share/perl/5.6.1
   /usr/local/lib/site_perl/i386-linux
   /usr/local/lib/site_perl
   .




Patrick Galbraith wrote:

> Martin,
>
> It doesn't look like a DBD::mysql problem to me. It has something to 
> do with the script. What does the output of program show? Perhaps 
> print out "print substr($dcref, -11) . "\n"; prior to each call of do 
> to see that it's actually passing the value to the driver. Or, try it 
> without the substring call. Try some variation to see if the problem 
> is in the value being passed to do.
>
> regards,
>
> Patrick
>
> Martin Waite wrote:
>
> > Hi,
> >
> > I have come across a problem in DBD::MySQL while porting code from Woody
> > to Sarge and Ubuntu (both hoary and breezy).
> >
> > The following script creates a simple test table and attempts to perform
> > 6 updates.  The first 3 updates work correctly, but in the final 3
> > updates, the key is erroneously taken as NULL:
> >
> > #! /usr/bin/perl5 -w
> >
> > use strict;
> > use DBI;
> >
> > my $dbh = DBI->connect( "dbi:mysql:test:host=chadwick:port=3306", 
> >             'testuser', 'test', {RaiseError=>1, PrintError=>0} );
> >
> >
> > $dbh->do( "drop table if exists update_bug" );
> > $dbh->do( "create table update_bug( k int not null primary key, 
> > status int not null )" );
> >
> > my $v = '4000930012345671';
> >
> > $dbh->do( "update update_bug set status = 5 where k = ?", undef, 
> > substr( $v, -11 ) );  # OK
> > $dbh->do( "update update_bug set status = 5 where k = ?", undef, 
> > substr( $v, -11 ) );  # OK
> >
> > cancel( $v );  # OK
> > cancel( $v );  # bug - k is NULL
> > cancel( $v );  # bug - k is NULL
> > cancel( $v );  # bug - k is NULL
> >
> > sub cancel {
> >   my ( $dcref ) = @_;
> >   print  "DCREF: $dcref\n";
> >   $dbh->do( "update update_bug set status = 5 where k = ?", undef, 
> > substr( $dcref, -11 ) );
> > }
> >
> >  
> > In the Query log of the 4.1.11 database we're connecting to, we see:
> >
> > 060526 14:24:52    4605 Connect     testuser@chadwick on test
> >                    4605 Query       SET AUTOCOMMIT=1
> >                    4605 Query       drop table if exists update_bug
> >                    4605 Query       create table update_bug( k int 
> > not null primary key, status int not null )
> >                    4605 Query       update update_bug set status = 5 
> > where k = '30012345671'
> >                    4605 Query       update update_bug set status = 5 
> > where k = '30012345671'
> >                    4605 Query       update update_bug set status = 5 
> > where k = '30012345671'
> >                    4605 Query       update update_bug set status = 5 
> > where k = NULL
> >                    4605 Query       update update_bug set status = 5 
> > where k = NULL
> >                    4605 Query       update update_bug set status = 5 
> > where k = NULL
> >                    4605 Quit
> >
> >  
> > The problem seems to be related to the fact that a substring expression
> > is passed as an argument to DBI::do, but only when the DBI::do is called
> > within a subroutine.
> >
> > I'm stumped here.  Is this a bug in Perl or DBD::MySQL, or just the
> > versions on Sarge and Ubuntu ?
> >
> > regards,
> > Martin
> >
> >
> >
> >
> >   


--
MySQL Perl Mailing List
For list archives: http://lists.mysql.com/perl
To unsubscribe:    
http://lists.mysql.com/perl?unsub=gcdmp-msql-mysql-modules@xxxxxxxxxxx