diff options
author | ivan <ivan> | 2010-05-01 22:22:07 +0000 |
---|---|---|
committer | ivan <ivan> | 2010-05-01 22:22:07 +0000 |
commit | b282e4e9dc32666259d25015916cf8c1eb088571 (patch) | |
tree | 67c099b7965066ee0ea641d50601a49066cc431f | |
parent | 5fd283d827959ffedce21faeecf74f011b42d751 (diff) |
update for Net::HTTPS::Any 0.10 without HTTP in response code
-rw-r--r-- | Changes | 5 | ||||
-rw-r--r-- | lib/Net/GlobalPOPs/MediaServicesAPI.pm | 10 |
2 files changed, 7 insertions, 8 deletions
@@ -1,5 +1,8 @@ Revision history for Net-GlobalPOPs-MediaServicesAPI +0.02 unreleased + - update for Net::HTTPS::Any 0.10 without HTTP in response code + 0.01 unreleased - First version, released on an unsuspecting world. + First version, (not) released on an unsuspecting world. diff --git a/lib/Net/GlobalPOPs/MediaServicesAPI.pm b/lib/Net/GlobalPOPs/MediaServicesAPI.pm index 1622eaf..88ee0d2 100644 --- a/lib/Net/GlobalPOPs/MediaServicesAPI.pm +++ b/lib/Net/GlobalPOPs/MediaServicesAPI.pm @@ -5,19 +5,15 @@ use strict; use Data::Dumper; use XML::Simple; use XML::Writer; -use Net::HTTPS::Any qw(https_post); +use Net::HTTPS::Any qw( 0.10 https_post ); =head1 NAME Net::GlobalPOPs::MediaServicesAPI - Interface to GlobalPOPs Media Services API -=head1 VERSION - -Version 0.01 - =cut -our $VERSION = '0.01'; +our $VERSION = '0.02'; our $URL = 'https://www.loginto.us/VOIP/api.pl'; #could be parsed from URL, if it mattered... our $HOST = 'www.loginto.us'; @@ -163,7 +159,7 @@ sub AUTOLOAD { 'debug' => $self->{'debug'}, ); - unless ( $response =~ /^HTTP\/[\d\.]+\s+200/i ) { + unless ( $response =~ /^200/i ) { $self->{'errstr'} = $response; return ''; } |