From b282e4e9dc32666259d25015916cf8c1eb088571 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 1 May 2010 22:22:07 +0000
Subject: update for Net::HTTPS::Any 0.10 without HTTP in response code

---
 lib/Net/GlobalPOPs/MediaServicesAPI.pm | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

(limited to 'lib/Net/GlobalPOPs/MediaServicesAPI.pm')

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 '';
   }
-- 
cgit v1.2.1