Changeset 29588 for lang

Timestamp:

02/05/09 22:38:06 (4 years ago)

Author:

yappo

Message:

localize

Files:

• lang/perl/Data-Model/trunk/lib/Data/Model/Driver/DBI.pm (modified) (1 diff)

lang/perl/Data-Model/trunk/lib/Data/Model/Driver/DBI.pm

@@ -131 +131 @@
 
     my $rec = +{};
-    $args{no_cached_prepare} = 1;
+    local $args{no_cached_prepare} = 1;
     my $sth = $self->fetch($rec, $schema, undef, { where => [ -or => \@queries ] }, %args);