increase dump_nr to files

[Biblio-Z3950.git] / Scraper.pm

diff --git a/Scraper.pm b/Scraper.pm
index d5e1ba8..711265a 100644 (file)
--- a/Scraper.pm
+++ b/Scraper.pm
@@ -44,6 +44,7 @@ sub save_content {
        print $html $self->{mech}->content;
        close($html);
        warn "# save_content $path ", -s $path, " bytes";
+       $dump_nr++;
 }
 
 1;