1 files changed, 1 insertions, 2 deletions
diff --git a/src/wheel-gen.pl b/src/wheel-gen.pl
index fe6157d62..ab40c99d0 100755
--- a/src/wheel-gen.pl
+++ b/src/wheel-gen.pl
@@ -26,10 +26,9 @@ sub is_prime ($)
 
   my $d = 2;
   my $w = 1;
-  my $q;
   while (1)
     {
-      $q = $n / $d;
+      my $q = $n / $d;
       ($n == $q * $d)
         and return 0;
       $d += $w;