From 407d331c9db403438cf6192a646a1761d5be669d Mon Sep 17 00:00:00 2001
From: philsmd <921533+philsmd@users.noreply.github.com>
Date: Sat, 13 Apr 2019 19:10:52 +0200
Subject: [PATCH] tests: fix hash generation of -m 8300 = DNSSEC

The salt needs to be passed AS-IS (in hexadecimal) not converted to binary for the perl module Net::DNS::RR::NSEC3::name2hash.

Thank you very much
---
 tools/test_modules/m08300.pm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/tools/test_modules/m08300.pm b/tools/test_modules/m08300.pm
index 4f2bfc2f2..b3b163a62 100644
--- a/tools/test_modules/m08300.pm
+++ b/tools/test_modules/m08300.pm
@@ -45,11 +45,9 @@ sub module_generate_hash
 
   my $hashalg = Net::DNS::SEC->digtype ("SHA1");
 
-  my $salt_bin = pack ("H*", $salt_hex);
-
   my $name = lc ($word . $domain);
 
-  my $hash_buf = Net::DNS::RR::NSEC3::name2hash ($hashalg, $name, $iter, $salt_bin);
+  my $hash_buf = Net::DNS::RR::NSEC3::name2hash ($hashalg, $name, $iter, $salt_hex);
 
   my $hash = sprintf ("%s:%s:%s:%d", $hash_buf, $domain, $salt_hex, $iter);