diff options
| author | Jim Meyering <jim@meyering.net> | 2001-02-06 09:03:47 +0000 |
|---|---|---|
| committer | Jim Meyering <jim@meyering.net> | 2001-02-06 09:03:47 +0000 |
| commit | 871c0f6caaaa75628ac74b5ca73f8e5240ebb6e1 (patch) | |
| tree | 70a768010a0a6c199136bf99c5237e6ffe7e50e6 | |
| parent | 20f3fe5f32c56be9cdd6f1d4b0ed3e6427e84cc1 (diff) | |
| download | coreutils-871c0f6caaaa75628ac74b5ca73f8e5240ebb6e1.tar.xz | |
move decl of q into loop
| -rwxr-xr-x | src/wheel-gen.pl | 3 |
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; |