[Bast-commits] r9709 - SQL-Abstract/1.x/trunk/lib/DBIx/Class/Storage/Debug

[frew at dev.catalyst.perl.org]

Author: frew
Date: 2010-09-09 22:37:06 +0100 (Thu, 09 Sep 2010)
New Revision: 9709

Modified:
   SQL-Abstract/1.x/trunk/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm
Log:
in case there were no bindargs passed

Modified: SQL-Abstract/1.x/trunk/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm
===================================================================
--- SQL-Abstract/1.x/trunk/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm	2010-09-09 10:38:31 UTC (rev 9708)
+++ SQL-Abstract/1.x/trunk/lib/DBIx/Class/Storage/Debug/PrettyPrint.pm	2010-09-09 21:37:06 UTC (rev 9709)
@@ -23,7 +23,7 @@
 sub print {
   my $self = shift;
   my $string = shift;
-  my $bindargs = shift;
+  my $bindargs = shift || [];
 
   my $use_placeholders = !!$self->_sqlat->fill_in_placeholders;