From 6acd8ae1290062af909425b9604956c03f3204af Mon Sep 17 00:00:00 2001
From: Heinz Knutzen <heinz.knutzen@dataport.de>
Date: Mon, 11 Oct 2021 17:46:55 +0200
Subject: [PATCH] Better adaptable to other $count

---
 go/testdata/huge.pl | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/go/testdata/huge.pl b/go/testdata/huge.pl
index a42d613ab..85520fd4d 100755
--- a/go/testdata/huge.pl
+++ b/go/testdata/huge.pl
@@ -51,6 +51,8 @@ END
 }
 END
 
+my ($b2a, $b3a) = two_bytes($count);
+
 (my $path = $0) =~ s/\.[^.]+$/.t/ or die;
 open(my $fh, '>', $path) or die;
 print $fh <<END;
@@ -63,16 +65,16 @@ END
 =OUTPUT=
 --r1a
 ! [ Routing ]
-route a 10.0.100.0 255.255.255.128 10.0.1.129
+route a 10.$b2a.$b3a.0 255.255.255.128 10.0.1.129
 --
 ! n_in
-access-list n_in extended permit tcp 10.0.1.0 255.255.255.128 10.0.100.0 255.255.255.128 eq 80
+access-list n_in extended permit tcp 10.0.1.0 255.255.255.128 10.$b2a.$b3a.0 255.255.255.128 eq 80
 access-list n_in extended deny ip any4 any4
 access-group n_in in interface n
 --
 ! a_in
 access-list a_in extended permit tcp host 10.0.1.129 10.0.1.0 255.255.255.128 eq 81
-access-list a_in extended permit tcp 10.0.100.0 255.255.255.128 10.0.1.0 255.255.255.128 eq 80
+access-list a_in extended permit tcp 10.$b2a.$b3a.0 255.255.255.128 10.0.1.0 255.255.255.128 eq 80
 access-list a_in extended deny ip any4 any4
 access-group a_in in interface a
 =END=