1
0
mirror of git://git.sv.gnu.org/coreutils.git synced 2026-04-18 09:46:33 +02:00

move decl of q into loop

This commit is contained in:
Jim Meyering
2001-02-06 09:03:47 +00:00
parent 20f3fe5f32
commit 871c0f6caa

View File

@@ -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;