diff options
Diffstat (limited to 'lib/Net/GlobalPOPs')
| -rw-r--r-- | lib/Net/GlobalPOPs/MediaServicesAPI.pm | 10 |
1 files changed, 3 insertions, 7 deletions
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 ''; } |