Re: selectall_arrayref returns ref to DBI and not an array ref

On 17/08/10 13:38, Peter Gordon wrote:
> I am using DBD::mysql.
> 
> I have a trace dump at level 15 which shows the problem. The dump is
> 750K uncompressed or 19K compressed. How should I send it?
> 
> Peter
> 

I'm not sure an attachment of that size will get through this mailing list. If you cannot put it up on publicly accessible HTTP/FTP server mail it to me and I'll take a look at it. If you are happy to make it public let me know and I can put it somewhere public for you so other list members can see it.

Martin

> 
> On Tue, 2010-08-17 at 13:11 +0100, Martin J. Evans wrote:
>> On 17/08/10 12:14, Peter Gordon wrote:
>>> 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
>>
>> Some confusion here, I meant which DBD are you using and which version e.g., DBD::mysql, DBD::Pg etc.
>>
>>>
>>>
>>>>>
>>>>>> 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
>>
>> oh.
>>
>>>
>>>
>>>>>
>>>>>> 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.
>>
>> Unless someone else has any bright ideas I think this might be difficult to track down without some way of reproducing or some tracing output. Is it possible to run your failing example with DBI_TRACE enabled at some high level?
>>  
>>>>> 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
>>>>
>>>>
>>>
>>>
>>
>> Martin
> 
> 


-- 
Martin J. Evans
Easysoft Limited
http://www.easysoft.com