Resolved Issue 14

Very small random numbers, so small they are represented with an exponent, should not cause errors anymore.
bbusschots · Dec 18, 2015 · aac07ee · aac07ee
1 parent 2e3435d
commit aac07ee
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/Crypt/HSXKPasswd.pm b/lib/Crypt/HSXKPasswd.pm
@@ -1996,8 +1996,8 @@ sub _increment_random_cache{
         _error('random function did not return any random numbers');
     }
     foreach my $num (@random_numbers){
-        unless($num =~ m/^1|(0([.]\d+)?)$/sx){
-            _error("random function returned and invalid value ($num)");
+        unless($num =~ m/^1|(0([.]\d+(e-\d+)?)?)$/sx){
+            _error("random function returned an invalid value ($num)");
         }
     }