don't dump hits to STDERR without DEBUG env variable

[BackupPC.git] / lib / BackupPC / Search / KinoSearch.pm

diff --git a/lib/BackupPC/Search/KinoSearch.pm b/lib/BackupPC/Search/KinoSearch.pm
index 35cb71b..91f488d 100644 (file)
--- a/lib/BackupPC/Search/KinoSearch.pm
+++ b/lib/BackupPC/Search/KinoSearch.pm
@@ -163,7 +163,7 @@ sub search {
 
        my $results;
        while ( my $hit = $hits->next ) {
 
        my $results;
        while ( my $hit = $hits->next ) {

-warn "XXX ",dump($hit);
+               warn "## hit = ",dump($hit) if $ENV{DEBUG};

                push @$results, $hit;
        }
 
                push @$results, $hit;
        }