From 02fac26e98524a533e6af53bc1afc3dc89e83260 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 23 Oct 2010 01:23:08 +0200
Subject: [PATCH] fix Aleph scraper

---
 Aleph.pm | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/Aleph.pm b/Aleph.pm
index 71d67a7..971e418 100644
--- a/Aleph.pm
+++ b/Aleph.pm
@@ -8,9 +8,6 @@ use Data::Dump qw/dump/;
 
 use base 'Scraper';
 
-our $mech = WWW::Mechanize->new();
-our $hits;
-
 sub diag {
 	print "# ", @_, $/;
 }
@@ -60,8 +57,7 @@ sub usemap {{
 #	12		=> '',
 #	1007	=> '',
 #	1016	=> '',
-
-};
+}};
 
 
 sub search {
@@ -89,7 +85,7 @@ diag "submit search $query";
 		},
 	);
 
-	$hits = 0;
+	my $hits = 0;
 	if ( $mech->content =~ m{ukupno\s+(\d+).*(do\s+(\d+))}s ) {
 		$hits = $1;
 		$hits = $2 if $2 && $2 < $1; # correct for max. results
-- 
2.20.1