On Tue, 2010-08-17 at 13:55 +0300, Peter Gordon wrote: > Sorry about that - dsylexia is setting in. > > https://bugzilla.mozilla.org/show_bug.cgi?id=481549 > > > > On Tue, 2010-08-17 at 11:44 +0100, Martin J. Evans wrote: > > On 17/08/10 10:47, Peter Gordon wrote: > > > > > > I am trying to fix a problem in Bugzilla which has been open for more > > > than a year, > > > > Bugzilla shows VERIFIED FIXED at the moment. > > > > > and which seems to be related to DBI, and I was hoping > > > that you could give me some direction in trying to solve the problem. On > > > my site the problem is totally repeatable. I am using Perl 5.8.8, > > > DBI-1.613_71. > > > > What DBD and version are you using?
>From the debugger: use DBI x $DBI::VERSION 0 1.614 use DBD::DBD x $DBI::DBD::VERSION 0 12.014312 > > > > > In short: on one line a variable is a reference to an array, and, > > > directly after a return statement, the value is no longer an array, but > > > a scalar > > > having a reference to DBI. So it looks like something is > > > changing/corrupting the Perl stack. Since Driver.xst and Perl.xsi change > > > the stack it seems > > > that that are likely to be causing the problem. > > > > Strange. > > > > > The bug in Bugzilla is: > > > > > > https://bugzilla.mozilla.org/show_bug.cgi?id=481459 > > > > This bugzilla does not seem to match your description. > > > > > > > > The code that seems to be causing the problem is: > > > > > > my $objects = $dbh->selectall_arrayref($sql, {Slice=>{}}, @untainted); > > > > > > For a given $sql and a given @untainted, the $objects returned is not > > > an array but a reference to DBI::db=HASH > > > > Have you got RaiseError set? > > > > What, if anything is in $dbh->err after the problem return? There is no error defined > > > > > When I step through the code, selectall_arrayref works correctly until > > > the final return statement. Before the return statement, the type is an > > > array, and directly afterwards, it is a DBI::db=HASH. > > > > > > The sql statement is: > > > > > > SELECT id,value,product_id FROM versions WHERE id IN > > > (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?, > > > ?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,? > > > ,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?, > > > ?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?, > > > ?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?, > > > ?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,? > > > ,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?, > > > ?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,? > > > ,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?) > > > ORDER BY id > > > > > > and the @untainted array is an equivalent number of small integers. > > > > > > For a smaller or larger number of variables selectall_arrayref is working > > > correctly. > > > > > > I changed the calling routine so that when an error was detected, the > > > code was run again. On second and consecutive times the > > > code worked correctly. > > > > > > I am prepared to debug the problem if someone could help. > > > > > > Peter > > > > > > > > > > Can you reproduce this in a small script outside of bugzilla Perl? > > I tried and haven't succeeded yet. I did something similar using the Bugzilla infrastucture, and didn't get the error. > > I tried mimicking what it looks like you are doing (mostly guess work) with > > DBD::ODBC and the latest DBI and found no problem: > > > > use DBI; > > use strict; > > > > my $h = DBI->connect('dbi:ODBC:baugi','sa','easysoft'); > > > > eval {$h->do(q/drop table mje/);}; > > > > $h->do(q/create table mje (id integer, value varchar(200), product_id > > integer)/); > > > > my $max = 1000; > > > > $h->begin_work; > > my $s = $h->prepare(q/insert into mje values(?,?,?)/); > > foreach my $loop(1..$max) { > > $s->execute($loop, 'fred', $loop); > > } > > $h->commit; > > > > > > foreach my $loop(1..($max+1)) { # last one won't match > > my @bound; > > push @bound, $_ foreach (1..$loop); > > > > my $sql = q/select id, value, product_id from mje where id in (/ . > > join(",", (map {'?'} @bound)) . ') order by id'; > > my $x = $h->selectall_arrayref($sql, {Slice=>{}}, @bound); > > if (ref($x) ne 'ARRAY') { > > print "$loop\n"; > > } > > } > > $h->disconnect; > > > > Martin > >
