dump only new lookup hash

diff --git a/ferlib2koha.pl b/ferlib2koha.pl
index f95f52f..c672423 100755 (executable)
--- a/ferlib2koha.pl
+++ b/ferlib2koha.pl
@@ -31,7 +31,7 @@ sub lookup {
                        $hash->{ $row->{$k} } = $row->{$v};
                }
                $lookup->{$key} = $hash;
-               warn dump($lookup);
+               warn "# lookup $key = ",dump($hash);
        }
        return unless length $s > 1;
        if ( ! exists $lookup->{$key}->{$s} ) {