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);
}