From: Jim Meyering <jim@meyering.net>
Date: Tue, 6 Feb 2001 08:42:33 +0000 (+0000)
Subject: remove n0
X-Git-Tag: FILEUTILS-4_0_39~14
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=20f3fe5f32c56be9cdd6f1d4b0ed3e6427e84cc1;p=thirdparty%2Fcoreutils.git

remove n0
---

diff --git a/src/wheel-gen.pl b/src/wheel-gen.pl
index 7cb51887ed..fe6157d62d 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;