From 0d21dc6c3b125fefa863ba185de0b25f19d7bced Mon Sep 17 00:00:00 2001 From: =?utf8?q?Fr=C3=A9d=C3=A9ric=20Demians?= Date: Fri, 1 Nov 2013 10:39:23 +0100 Subject: [PATCH] Bug 11185: fix bug preventing check-url-quick.pl from working Revert commit f88f11b4f805a70c9748bc3676cb1ce086db2ce8 Signed-off-by: Owen Leonard Before this patch, check-url-quick.pl fails with an error. After the patch it runs correctly. Signed-off-by: Jonathan Druart Signed-off-by: Galen Charlton --- misc/cronjobs/check-url-quick.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/misc/cronjobs/check-url-quick.pl b/misc/cronjobs/check-url-quick.pl index d1674e8d34..632a1fe87b 100755 --- a/misc/cronjobs/check-url-quick.pl +++ b/misc/cronjobs/check-url-quick.pl @@ -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 ) = ( '', '' ); -- 2.39.5