From: Marius Gavrilescu Date: Fri, 4 Dec 2015 12:10:30 +0000 (+0000) Subject: Update OFF_URL and make $http global X-Git-Tag: 1.000001~2 X-Git-Url: http://git.ieval.ro/?p=www-offliberty.git;a=commitdiff_plain;h=335dcc3112a0e936fe993ac6f3dc193368dfcf66 Update OFF_URL and make $http global --- 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) = @_;