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 (file)
--- 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";