From fd2d5531776af16744dd53b704b3a2fa62a01975 Mon Sep 17 00:00:00 2001 From: philsmd Date: Mon, 6 Mar 2017 11:01:35 +0100 Subject: [PATCH] test: removed unused variables --- tools/test.pl | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/tools/test.pl b/tools/test.pl index 10e052b4e..f8bf28bbc 100755 --- a/tools/test.pl +++ b/tools/test.pl @@ -5594,7 +5594,6 @@ sub gen_hash my $timestamp = substr ($clear_data, 14, 14); my $is_numeric = 1; - my $num; if ($timestamp !~ /^[[:digit:]]{14}$/) { @@ -5912,8 +5911,6 @@ sub gen_hash my $digest_new = $pbkdf2->PBKDF2 ($salt_buf, $tmp_hash); - my $iteration_str = "" . $iterations; - for (my $i = length ($iterations); $i < 10; $i++) { $iterations = "0" . $iterations; @@ -9858,8 +9855,6 @@ sub domino_big_md for ($curpos = 0; $curpos + 16 < $size; $curpos += 16) { - my $curpos16 = $curpos + 16; - my @block = splice (@{$saved_key_ref}, 0, 16); mdtransform (\@state, \@checksum, \@block); @@ -10083,7 +10078,7 @@ sub gen_random_wpa_eapol my $vendor_specific_unicast_oui = pack ("H*", "0050f2"); - $vendor_specific_data .= $vendor_specific_multicast_oui; + $vendor_specific_data .= $vendor_specific_unicast_oui; my $vendor_specific_unicast_type = 2; # TKIP