summaryrefslogtreecommitdiff
path: root/src/wheel-gen.pl
diff options
context:
space:
mode:
authorJim Meyering <meyering@redhat.com>2009-08-22 18:56:06 +0200
committerJim Meyering <meyering@redhat.com>2009-08-25 09:21:00 +0200
commit5e778f7c8d1ecf3d8f11385db013af2ba026e2a5 (patch)
treee460d471f37f0dce1ba06f60f88114d1a65326c4 /src/wheel-gen.pl
parent2bc0f3caaafeb240cdcfd050b7ad1fe0ad14addf (diff)
downloadcoreutils-5e778f7c8d1ecf3d8f11385db013af2ba026e2a5.tar.xz
global: convert indentation-TABs to spaces
Transformed via this shell code: t=$'\t' git ls-files \ | grep -vE '(^|/)((GNU)?[Mm]akefile|ChangeLog)|\.(am|mk)$' \ | grep -vE 'tests/pr/|help2man' \ | xargs grep -lE "^ *$t" \ | xargs perl -MText::Tabs -ni -le \ '$m=/^( *\t[ \t]*)(.*)/; print $m ? expand($1) . $2 : $_'
Diffstat (limited to 'src/wheel-gen.pl')
-rwxr-xr-xsrc/wheel-gen.pl38
1 files changed, 19 insertions, 19 deletions
diff --git a/src/wheel-gen.pl b/src/wheel-gen.pl
index 987619de3..96fb48f05 100755
--- a/src/wheel-gen.pl
+++ b/src/wheel-gen.pl
@@ -50,7 +50,7 @@ sub is_prime ($)
and return 0;
$d += $w;
$q < $d
- and last;
+ and last;
$w = 2;
}
return 1;
@@ -68,12 +68,12 @@ sub is_prime ($)
for (my $i = 3; ; $i += 2)
{
if (is_prime $i)
- {
- push @primes, $i;
- $product *= $i;
- ++$n_primes == $wheel_size
- and last;
- }
+ {
+ push @primes, $i;
+ $product *= $i;
+ ++$n_primes == $wheel_size
+ and last;
+ }
}
my $ws_m1 = $wheel_size - 1;
@@ -92,20 +92,20 @@ EOF
{
my $rel_prime = 1;
foreach my $divisor (@primes)
- {
- $i != $divisor && $i % $divisor == 0
- and $rel_prime = 0;
- }
+ {
+ $i != $divisor && $i % $divisor == 0
+ and $rel_prime = 0;
+ }
if ($rel_prime)
- {
- #warn $i, ' ', $i - $prev, "\n";
- push @increments, $i - $prev;
- $prev = $i;
-
- $product + 1 < $i
- and last;
- }
+ {
+ #warn $i, ' ', $i - $prev, "\n";
+ push @increments, $i - $prev;
+ $prev = $i;
+
+ $product + 1 < $i
+ and last;
+ }
}
print join (",\n", @increments), "\n";