summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorivan <ivan>2010-05-01 22:22:07 +0000
committerivan <ivan>2010-05-01 22:22:07 +0000
commitb282e4e9dc32666259d25015916cf8c1eb088571 (patch)
tree67c099b7965066ee0ea641d50601a49066cc431f
parent5fd283d827959ffedce21faeecf74f011b42d751 (diff)
update for Net::HTTPS::Any 0.10 without HTTP in response code
-rw-r--r--Changes5
-rw-r--r--lib/Net/GlobalPOPs/MediaServicesAPI.pm10
2 files changed, 7 insertions, 8 deletions
diff --git a/Changes b/Changes
index dc6e0b1..40b271f 100644
--- a/Changes
+++ b/Changes
@@ -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 '';
}