Looks like this line in ResultSet triggers the bug:
$row = $self->search(\@unique_hashes, { rows => 1 })->first;
If the { rows => 1 } attribute is removed then there's no problem.
That attribute certainly *looks* superfluous...
- Alan
-----Original Message-----
From: dbix-class-bounces@xxxxxxxxxxxxxxxxx
[mailto:dbix-class-bounces@xxxxxxxxxxxxxxxxx] On Behalf Of Matt S Trout
Sent: Wednesday, February 15, 2006 9:47 AM
To: dbix-class@xxxxxxxxxxxxxxxxx
Subject: Re: [Dbix-class] strange SQL generated
On Wed, Feb 15, 2006 at 09:18:23AM -0800, Alan Humphrey wrote:
> Working against a MSSQL backend this code generates the following SQL:
>
> my $cols;
> $$cols{id} = 65;
> $$cols{url} = 'test';
>
> BirdWeb::Admin::Model::Production->resultset('Urls')->update_or_create(
> $cols );
>
>
> SQL:
>
> SELECT me.id, me.url, me.last_checked, me.last_status FROM urls X me WHERE
(
> ( id = ? ) ) AND
> (
> SELECT COUNT(*) FROM urls WHERE me > X.me
> )
> < 1
> ORDER BY me DESC
>
>
> The same code running against a MySQL backend works fine.
Smells like an SQL::Abstract::Limit bug.
--
Matt S Trout Offering custom development, consultancy and support
Technical Director contracts for Catalyst, DBIx::Class and BAST.
Contact
Shadowcat Systems Ltd. mst (at) shadowcatsystems.co.uk for more information
+ Help us build a better perl ORM:
http://dbix-class.shadowcatsystems.co.uk/ +
_______________________________________________
List: http://lists.rawmode.org/cgi-bin/mailman/listinfo/dbix-class
Wiki: http://dbix-class.shadowcatsystems.co.uk/
IRC: irc.perl.org#dbix-class
SVN: http://dev.catalyst.perl.org/repos/bast/trunk/DBIx-Class/
_______________________________________________
List: http://lists.rawmode.org/cgi-bin/mailman/listinfo/dbix-class
Wiki: http://dbix-class.shadowcatsystems.co.uk/
IRC: irc.perl.org#dbix-class
SVN: http://dev.catalyst.perl.org/repos/bast/trunk/DBIx-Class/
|
