undef のとき warn がでてる

onishi · Aug 11, 2011 · c4f877c · c4f877c
1 parent 78f05a4
commit c4f877c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Devel/KYTProf.pm b/lib/Devel/KYTProf.pm
@@ -45,7 +45,7 @@ use Term::ANSIColor;
         sub {
             my ($orig, $sth, @binds) = @_;
             my $sql = $sth->{Database}->{Statement};
-            my $bind_info = scalar(@binds) ? '(bind: '.join(', ',@binds).')' : '';
+            my $bind_info = scalar(@binds) ? '(bind: '.join(', ', map { defined $_ ? $_ : 'undef' } @binds).')' : '';
             return sprintf '%s %s (%d rows)', $sql, $bind_info, $sth->rows;
         }
     );