remove unused variables or rename them with an underscore (eg: $o becomes $_o)

1 files changed, 2 insertions, 2 deletions

diff --git a/perl-install/partition_table/mac.pm b/perl-install/partition_table/mac.pm
index 4ba83faf2..942136bf1 100644
--- a/perl-install/partition_table/mac.pm
+++ b/perl-install/partition_table/mac.pm
@@ -93,7 +93,7 @@ sub adjustStart($$) {
 }
 
 sub adjustEnd($$) {
-    my ($hd, $part) = @_;
+    my ($_hd, $_part) = @_;
 }
 
 sub read($$) {
@@ -106,7 +106,7 @@ sub read($$) {
     sysread $F, $tmp, psizeof($bz_format) or die "error while reading bz \(Block Zero\) in sector $sector";
     my %info; @info{@$bz_fields} = unpack $bz_format, $tmp;
 
-    foreach my $i (0 .. $info{bzDrvrCnt}-1) {
+    foreach (1 .. $info{bzDrvrCnt}) {
         sysread $F, $tmp, psizeof($dd_format) or die "error while reading driver data in sector $sector";
         my %dd; @dd{@$dd_fields} = unpack $dd_format, $tmp;
         push @{$info{ddMap}}, \%dd;