fixed RT#132736 (Noisy warning on ->fetch(url))

parent b94eee50
Revision history for perl module Net::RDAP
0.15 - 2020-07-07
- fixed RT#132736 (Noisy warning on ->fetch(url))
0.14 - 2019-03-06
- support for getting help response from RDAP
services
......
......@@ -17,7 +17,7 @@ use Net::RDAP::SearchResult;
use vars qw($VERSION);
use strict;
$VERSION = 0.14;
$VERSION = 0.15;
=pod
......@@ -381,10 +381,13 @@ sub fetch {
#
$request->header('Authorization' => sprintf('Basic %s', encode_base64(join(':', ($args{'user'}, $args{'pass'}))))) if ($args{'user'} && $args{'pass'});
#
# path to local copy of the remote resource
#
my $file = sprintf(
'%s/Net-RDAP-cache-%s.json',
($ENV{'TMPDIR'} || '/tmp'),
sha1_hex($url),
sha1_hex($url->isa('URI') ? $url->as_string : $url),
);
#
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment