From: Arthur Axel "fREW" Schmidt Date: Thu, 9 Sep 2010 21:37:06 +0000 (+0000) Subject: in case there were no bindargs passed X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FQ-Branch.git;a=commitdiff_plain;h=25d4d820c54c2d09d613ed1c90a72c9a9058373f in case there were no bindargs passed --- diff --git a/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm b/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm index 4cae709..5472e42 100644 --- a/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm +++ b/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm @@ -23,7 +23,7 @@ sub new { sub print { my $self = shift; my $string = shift; - my $bindargs = shift; + my $bindargs = shift || []; my $use_placeholders = !!$self->_sqlat->fill_in_placeholders;