From: ivan <ivan>
Date: Sat, 1 May 2010 22:22:07 +0000 (+0000)
Subject: update for Net::HTTPS::Any 0.10 without HTTP in response code
X-Git-Url: http://git.freeside.biz/gitweb/?p=Net-GlobalPOPs-MediaServicesAPI.git;a=commitdiff_plain;h=b282e4e9dc32666259d25015916cf8c1eb088571

update for Net::HTTPS::Any 0.10 without HTTP in response code
---

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 '';
   }