From: Vincent Pit <vince@profvince.com>
Date: Tue, 7 Apr 2015 16:18:00 +0000 (-0300)
Subject: Clean up unit discovery
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=3182f33c797b4d40147a625e1c99e1b6054208a3;p=perl%2Fmodules%2FScalar-Vec-Util.git

Clean up unit discovery
---

diff --git a/Makefile.PL b/Makefile.PL
index cd341ad..c56d8b5 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -119,23 +119,23 @@ if (defined $cc and defined $ld) {
  $PARAMS{CC} = $cc;
  $PARAMS{LD} = $ld;
 
- my $unit = { bits => 8, size => 1 };
+ my $bits = 8;
  if (not is_little_endian()) {
   print "Forcing unit size of 8 on non-little-endian systems.\n";
  } else {
   print "Checking unit size in bits... ";
+  my $size  = 1;
   my $align = $Config{alignbytes} || 1;
-  my @bits = (8, 16, 32, 64);
-  for my $bits (@bits) {
-   my $size = $Config{"u${bits}size"};
-   next unless $size;
-   $unit = { bits => $bits, size => $size } if $size && $size <= $align;
+  my @units = (8, 16, 32, 64);
+  for my $unit (@units) {
+   my $unit_size = $Config{"u${unit}size"};
+   if ($unit_size and $unit_size <= $align) {
+    $bits = $unit;
+    $size = $unit_size;
+   }
   }
-  print $unit->{bits},
-                " (actually $unit->{size} bytes for $align bytes alignment).\n";
+  print "$bits (actually $size bytes for $align bytes alignment).\n";
  }
-
- my $bits = $unit->{bits};
  push @DEFINES, '-DBV_UNIT="' . ($Config{"u${bits}type"} || "U$bits") . '"';
  push @DEFINES, "-DSVU_SIZE=$bits";
 } else {