From 335dcc3112a0e936fe993ac6f3dc193368dfcf66 Mon Sep 17 00:00:00 2001 From: Marius Gavrilescu Date: Fri, 4 Dec 2015 12:10:30 +0000 Subject: [PATCH 1/1] Update OFF_URL and make $http global --- lib/WWW/Offliberty.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/WWW/Offliberty.pm b/lib/WWW/Offliberty.pm index b5b7918..039534b 100644 --- a/lib/WWW/Offliberty.pm +++ b/lib/WWW/Offliberty.pm @@ -7,12 +7,12 @@ use parent qw/Exporter/; our $VERSION = '1.000'; our @EXPORT_OK = qw/off/; -use constant OFF_URL => 'http://offliberty.com/off54.php'; +use constant OFF_URL => 'http://offliberty.com/off02.php'; use HTML::TreeBuilder; use HTTP::Tiny; -my $http = HTTP::Tiny->new(agent => "WWW-Offliberty/$VERSION ", default_headers => {Referer => "http://offliberty.com/"}); +our $http = HTTP::Tiny->new(agent => "WWW-Offliberty/$VERSION ", default_headers => {Referer => "http://offliberty.com/"}); sub off{ my ($url, @params) = @_; -- 2.39.2