From f439241c9ffa93fb7f84cc276b828653199ee497 Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Mon, 24 Apr 2017 14:43:03 +0100
Subject: [PATCH] fix for MIB download through proxy

---
 Build.PL            | 1 +
 Changes             | 7 +++++++
 bin/netdisco-deploy | 2 +-
 3 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/Build.PL b/Build.PL
index 635ef1d4..c890744d 100644
--- a/Build.PL
+++ b/Build.PL
@@ -35,6 +35,7 @@ Module::Build->new(
     'Guard' => '1.022',
     'HTML::Parser' => '3.70',
     'HTTP::Tiny' => '0.029',
+    'IO::Socket::SSL' => '2.048',
     'JSON' => '2.90',
     'JSON::XS' => '3.01',
     'List::MoreUtils' => '0.33',
diff --git a/Changes b/Changes
index fec9216d..a6874a7e 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,10 @@
+2.035003 - 2017-04-24
+
+  [BUG FIXES]
+
+  * Add IO::Socket::SSL requirement for OUI/MIB download
+  * Fix for MIB download through an HTTP proxy
+
 2.035002 - 2017-04-24
 
   [BUG FIXES]
diff --git a/bin/netdisco-deploy b/bin/netdisco-deploy
index 2c9839b2..7085ef5b 100755
--- a/bin/netdisco-deploy
+++ b/bin/netdisco-deploy
@@ -281,7 +281,7 @@ sub deploy_mibs {
   my $latest = 'https://github.com/netdisco/netdisco-mibs/releases/latest';
   my $resp = HTTP::Tiny->new->get($latest);
 
-  if (exists $resp->{redirects} and $resp->{url} =~ m/([0-9.]+)$/) {
+  if ($resp->{url} =~ m/([0-9.]+)$/) {
     my $ver = $1;
     my $url = 'https://codeload.github.com/netdisco/netdisco-mibs/tar.gz/'. $ver;
     my $file = file($home, 'netdisco-mibs-latest.tar.gz');