[Pgp-tools-commit] r890 - trunk/gpgsigs

[Guilhem Moulin]

Author: guilhem-guest
Date: 2017-02-01 18:58:36 +0000 (Wed, 01 Feb 2017)
New Revision: 890

Modified:
   trunk/gpgsigs/gpgsigs
Log:
Convert $k to int before comparing.

Modified: trunk/gpgsigs/gpgsigs
===================================================================
--- trunk/gpgsigs/gpgsigs	2017-02-01 18:50:51 UTC (rev 889)
+++ trunk/gpgsigs/gpgsigs	2017-02-01 18:58:36 UTC (rev 890)
@@ -402,7 +402,7 @@
 			}
 			my $n = $r =~ y/_//;
 			my $k = $n / length($md);
-			if ($k * length($md) != $n) {
+			if (int($k) * length($md) != $n) {
 				warn "Skipping $algo digest value (invalid fill-in length)\n";
 			} else {
 				my $w = '_' x $k;