From 20f3fe5f32c56be9cdd6f1d4b0ed3e6427e84cc1 Mon Sep 17 00:00:00 2001
From: Jim Meyering <jim@meyering.net>
Date: Tue, 6 Feb 2001 08:42:33 +0000
Subject: remove n0

---
 src/wheel-gen.pl | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/src/wheel-gen.pl b/src/wheel-gen.pl
index 7cb51887e..fe6157d62 100755
--- a/src/wheel-gen.pl
+++ b/src/wheel-gen.pl
@@ -18,20 +18,18 @@ sub END
 
 sub is_prime ($)
 {
-  my ($n0) = @_;
+  my ($n) = @_;
   use integer;
 
-  $n0 == 2
+  $n == 2
     and return 1;
 
-  my $n = $n0;
   my $d = 2;
   my $w = 1;
   my $q;
   while (1)
     {
       $q = $n / $d;
-      #print "q=$q n=$n d=$d\n";
       ($n == $q * $d)
         and return 0;
       $d += $w;
-- 
cgit v1.2.3-54-g00ecf