[Bast-commits] r9753 - SQL-Abstract/1.x/trunk/lib/DBIx/Class/Storage/Debug

[frew at dev.catalyst.perl.org]

Author: frew
Date: 2010-10-09 09:39:57 +0100 (Sat, 09 Oct 2010)
New Revision: 9753

Modified:
   SQL-Abstract/1.x/trunk/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm
Log:
s// does not return the modified string, $_ does

Modified: SQL-Abstract/1.x/trunk/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm
===================================================================
--- SQL-Abstract/1.x/trunk/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm	2010-10-09 08:38:29 UTC (rev 9752)
+++ SQL-Abstract/1.x/trunk/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm	2010-10-09 08:39:57 UTC (rev 9753)
@@ -28,7 +28,7 @@
   my $use_placeholders = !!$self->_sqlat->fill_in_placeholders;
 
   # DBIC pre-quotes bindargs
-  $bindargs = [map { s/^'//; s/'$//; } @{$bindargs}] if $use_placeholders;
+  $bindargs = [map { s/^'//; s/'$//; $_ } @{$bindargs}] if $use_placeholders;
 
   my $formatted = $self->_sqlat->format($string, $bindargs) . "\n";