Re: bug in DBD::MySQL on Ubuntu / Sarge
Martin Waite <[email protected]>
| Newsgroups | gmane.comp.db.mysql.perl |
|---|---|
| Message-ID | <[email protected]> |
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/[email protected]