Author: spadkins
Date: Sun Oct 23 21:11:41 2011
New Revision: 14962

Modified:
   p5ee/trunk/App-Repository/lib/App/Repository/DBI.pm

Log:
support db->_do() for select statements which start with whitespace

Modified: p5ee/trunk/App-Repository/lib/App/Repository/DBI.pm
==============================================================================
--- p5ee/trunk/App-Repository/lib/App/Repository/DBI.pm (original)
+++ p5ee/trunk/App-Repository/lib/App/Repository/DBI.pm Sun Oct 23 21:11:41 2011
@@ -2672,7 +2672,7 @@
         my $tries = 1;
         while ($continue) {
             eval {
-                if ($sql =~ /^select/i) {
+                if ($sql =~ /^\s*select/i) {
                     if ($options->{columns}) {
                         $retval = $self->_selectall_arrayref($sql, $options);
                     }

Reply via email to