From: Arthur Axel "fREW" Schmidt 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";