From 87cc9860041613286805d68990f830e3acac0122 Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Sat, 1 Oct 2016 16:41:50 +0100
Subject: [PATCH] portcontrol jobs using device object instance instead of IP
 address

---
 Netdisco/Changes                                               | 1 +
 .../lib/App/Netdisco/Daemon/Worker/Interactive/PortActions.pm  | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/Netdisco/Changes b/Netdisco/Changes
index 97906c53..7ea1d588 100644
--- a/Netdisco/Changes
+++ b/Netdisco/Changes
@@ -10,6 +10,7 @@
   [BUG FIXES]
 
   * Improve security of REMOTE_USER handling (B. Marshall)
+  * portcontrol jobs using device object instance instead of IP address
 
 2.033006 - 2016-03-20
 
diff --git a/Netdisco/lib/App/Netdisco/Daemon/Worker/Interactive/PortActions.pm b/Netdisco/lib/App/Netdisco/Daemon/Worker/Interactive/PortActions.pm
index 0fea9ea8..81a0a02c 100644
--- a/Netdisco/lib/App/Netdisco/Daemon/Worker/Interactive/PortActions.pm
+++ b/Netdisco/lib/App/Netdisco/Daemon/Worker/Interactive/PortActions.pm
@@ -63,7 +63,8 @@ sub _set_port_generic {
   my ($job, $slot, $column) = @_;
   $column ||= $slot;
 
-  my $ip = $job->device;
+  my $device = $job->device;
+  my $ip = $device->ip;
   my $pn = $job->port;
   my $data = $job->subaction;