X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FSQLAHacks%2FSQLite.pm;h=e26078629f872c020af1506479bbb59d93771606;hb=a6b68a60b376e918a6058f37cb1115ba3163a59b;hp=dfc77ae474c9ef22b6b69e4807cebc0d1a1e404a;hpb=aa0163d42e50f63a1bd40d910654008ee8ca7a09;p=dbsrgits%2FDBIx-Class.git

diff --git a/lib/DBIx/Class/SQLAHacks/SQLite.pm b/lib/DBIx/Class/SQLAHacks/SQLite.pm
index dfc77ae..e260786 100644
--- a/lib/DBIx/Class/SQLAHacks/SQLite.pm
+++ b/lib/DBIx/Class/SQLAHacks/SQLite.pm
@@ -6,12 +6,16 @@ use Carp::Clan qw/^DBIx::Class|^SQL::Abstract/;
 
 #
 # SQLite does not understand SELECT ... FOR UPDATE
-# Adjust SQL here instead
+# Disable it here
 #
-sub select {
-  my $self = shift;
-  local $self->{_dbic_rs_attrs}{for} = undef;
-  return $self->SUPER::select (@_);
+sub _parse_rs_attrs {
+  my ($self, $attrs) = @_;
+
+  return $self->SUPER::_parse_rs_attrs ($attrs)
+    if ref $attrs ne 'HASH';
+
+  local $attrs->{for};
+  return $self->SUPER::_parse_rs_attrs ($attrs);
 }
 
 1;