Bug 11185: fix bug preventing check-url-quick.pl from working
authorFrédéric Demians <f.demians@tamil.fr>
Fri, 1 Nov 2013 09:39:23 +0000 (10:39 +0100)
committerGalen Charlton <gmc@esilibrary.com>
Fri, 15 Nov 2013 15:30:20 +0000 (15:30 +0000)
Revert commit f88f11b4f805a70c9748bc3676cb1ce086db2ce8

Signed-off-by: Owen Leonard <oleonard@myacpl.org>

Before this patch, check-url-quick.pl fails with an error. After the
patch it runs correctly.

Signed-off-by: Jonathan Druart <jonathan.druart@biblibre.com>
Signed-off-by: Galen Charlton <gmc@esilibrary.com>

misc/cronjobs/check-url-quick.pl

index d1674e8..632a1fe 100755 (executable)
@@ -22,8 +22,8 @@ use Pod::Usage;
 use Getopt::Long;
 use C4::Context;
 use C4::Biblio;
-eval { require AnyEvent }       or die "This script requires AnyEvent perl library. Use check-url.pl if you can't install AnyEvent" ;
-eval { require AnyEvent::HTTP } or die "This script requires AnyEvent::HTTP perl library. Use check-url.pl if you can't install AnyEvent::HTTP" ;
+use AnyEvent;
+use AnyEvent::HTTP;
 
 my ( $verbose, $help, $html ) = ( 0, 0, 0 );
 my ( $host,    $host_intranet ) = ( '', '' );