From 871c0f6caaaa75628ac74b5ca73f8e5240ebb6e1 Mon Sep 17 00:00:00 2001
From: Jim Meyering <jim@meyering.net>
Date: Tue, 6 Feb 2001 09:03:47 +0000
Subject: move decl of q into loop

---
 src/wheel-gen.pl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src')

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;
-- 
cgit v1.2.3-70-g09d2