From 3ba3165d1daa9337eb46702d73ab7af8ba9aa7cc Mon Sep 17 00:00:00 2001
From: "Matthew Horsfall (alh)" <wolfsage@gmail.com>
Date: Tue, 18 Feb 2014 19:32:49 -0500
Subject: [PATCH] Fix test - use LocalHost/LocalPort instead of
 PeerAddr/PeerPort when listening

---
 t/live.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/t/live.t b/t/live.t
index 18a104f..8babfb6 100644
--- a/t/live.t
+++ b/t/live.t
@@ -28,8 +28,8 @@ SKIP: {
     my $remote = IO::Socket::INET->new(
         Listen =>5,
         Proto    => 'tcp',
-        PeerAddr => '127.0.0.1',
-        PeerPort => $port,
+        LocalAddr => '127.0.0.1',
+        LocalPort => $port,
     );
     my $check = $remote ? 1 : 0;
     close $remote if ($check);