Commenting out warn call

Im working on a curses circulation module, and this warn was smearing output
to the screen.

diff --git a/C4/Search.pm b/C4/Search.pm
index 649273f..3df3ef4 100755 (executable)
--- a/C4/Search.pm
+++ b/C4/Search.pm
@@ -1841,7 +1841,7 @@ sub BornameSearch  {
        }
 
        my $sth=$dbh->prepare($query);
-       warn "Q $orderby : $query";
+#      warn "Q $orderby : $query";
        $sth->execute(@bind);
        my @results;
        my $cnt=$sth->rows;