From: Arthur Axel "fREW" Schmidt <frioux@gmail.com>
Date: Sat, 9 Oct 2010 08:39:57 +0000 (+0000)
Subject: s// does not return the modified string, $_ does
X-Git-Tag: v1.70~42
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ec02b310277c474bb2b97085e546b45b521b275a;p=dbsrgits%2FSQL-Abstract.git

s// does not return the modified string, $_ does
---

diff --git a/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm b/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm
index 5472e42..53de002 100644
--- a/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm
+++ b/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm
@@ -28,7 +28,7 @@ sub print {
   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";