move decl of q into loop

diff --git a/src/wheel-gen.pl b/src/wheel-gen.pl
index fe6157d62d8b5379fa9dafc0b87ee436e44a949d..ab40c99d09129a1acd4871f5baaa0fb6dd74f45c 100755 (executable)
--- 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;