From 1ebc142d191a746919843a1e08d078f191243da1 Mon Sep 17 00:00:00 2001
From: Heikki Hannikainen <hessu@hes.iki.fi>
Date: Thu, 17 May 2012 22:50:05 +0000
Subject: [PATCH] = support IPv6 fake IS server in the tests

git-svn-id: http://repo.ham.fi/svn/aprsc/trunk@355 3ce903b1-3385-4e86-93cd-f9a4a239f7ac
---
 tests/libperl/Ham/APRS/IS_Fake.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/tests/libperl/Ham/APRS/IS_Fake.pm b/tests/libperl/Ham/APRS/IS_Fake.pm
index 4adf60d..ead4b1f 100644
--- a/tests/libperl/Ham/APRS/IS_Fake.pm
+++ b/tests/libperl/Ham/APRS/IS_Fake.pm
@@ -6,7 +6,7 @@ use strict;
 use warnings;
 
 use IO::Handle '_IOFBF';
-use IO::Socket::INET;
+use IO::Socket::INET6;
 use IO::Select;
 
 use Ham::APRS::IS;
@@ -47,7 +47,7 @@ sub bind_and_listen($)
 	
 	my($localaddr, $localport) = split(':', $self->{'host_port'});
 	
-	$self->{'lsock'} = IO::Socket::INET->new(
+	$self->{'lsock'} = IO::Socket::INET6->new(
 		Listen => 10,
 		LocalAddr => $self->{'host_port'},
 		Proto => 'tcp',
@@ -86,7 +86,7 @@ sub send_login_ok($$)
 {
 	my($self, $is) = @_;
 	
-	return $is->sendline("# logresp CALLSIGN unverified, server IS_FAKE");
+	return $is->sendline("# logresp CALLSIGN unverified, server FAKE" . sprintf("%d", rand(999)) );
 }
 
 1;