X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDebug%2FPrettyPrint.pm;h=65e95bda8e8d14730a96b02f7ec2225415900311;hb=fda8a675d11f0acce2ec53f155e8e3ca70b7db7c;hp=8a8c6597db6a52292d585a339c80b578c144286a;hpb=17c25d88d37a4f5d46ddeef4f6cfaa83b425019f;p=scpubgit%2FQ-Branch.git diff --git a/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm b/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm index 8a8c659..65e95bd 100644 --- a/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm +++ b/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm @@ -60,11 +60,11 @@ sub print { my $formatted; if ($self->squash_repeats && $self->_last_sql eq $string) { my ( $l, $r ) = @{ $sqlat->placeholder_surround }; - $formatted = '... : ' . join(', ', map "$l$_$r", @$bindargs) . "\n"; + $formatted = '... : ' . join(', ', map "$l$_$r", @$bindargs) } else { $self->_last_sql($string); - $formatted = $sqlat->format($string, $bindargs) . "\n"; - $formatted = "$formatted: " . join ', ', @{$bindargs} + $formatted = $sqlat->format($string, $bindargs); + $formatted = "$formatted : " . join ', ', @{$bindargs} unless $use_placeholders; }