From 9aee422c84658c976469094f78007106a33423fd Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Fr=C3=A9d=C3=A9ric=20Demians?= Date: Fri, 1 Nov 2013 10:39:23 +0100 Subject: [PATCH] [SIGNED-OFF] Bug 11185 check-url-quick.pl fails Content-Type: text/plain; charset="utf-8" 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. --- 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 d1674e8..632a1fe 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 ) = ( '', '' ); -- 1.7.9.5