caller info does not belong here

[dbsrgits/SQL-Abstract.git] / lib / SQL / Abstract / Tree.pm

diff --git a/lib/SQL/Abstract/Tree.pm b/lib/SQL/Abstract/Tree.pm
index ada82df..eb8d9c8 100644 (file)
--- a/lib/SQL/Abstract/Tree.pm
+++ b/lib/SQL/Abstract/Tree.pm
@@ -332,7 +332,7 @@ sub _fill_in_placeholder {
    my ($self, $bindargs) = @_;
 
    if ($self->fill_in_placeholders) {
-      my $val = pop @{$bindargs};
+      my $val = pop @{$bindargs} || '';
       $val =~ s/\\/\\\\/g;
       $val =~ s/'/\\'/g;
       return qq('$val')
@@ -402,4 +402,4 @@ sub format { my $self = shift; $self->unparse($self->parse($_[0]), $_[1]) }
 
  $sqlat->format('SELECT * FROM bar')
 
-Returns a formatting string based on wthe string passed in
+Returns a formatting string based on the string passed in