in case there were no bindargs passed

[scpubgit/Q-Branch.git] / lib / DBIx / Class / Storage / Debug / PrettyPrint.pm

diff --git a/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm b/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm
index 4cae709..5472e42 100644 (file)
--- 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;