summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/partition_table')
-rw-r--r--perl-install/partition_table/gpt.pm3
-rw-r--r--perl-install/partition_table/mac.pm4
-rw-r--r--perl-install/partition_table/raw.pm4
3 files changed, 5 insertions, 6 deletions
diff --git a/perl-install/partition_table/gpt.pm b/perl-install/partition_table/gpt.pm
index 7faad2be4..4b78f193c 100644
--- a/perl-install/partition_table/gpt.pm
+++ b/perl-install/partition_table/gpt.pm
@@ -139,7 +139,6 @@ sub read_partitionEntries {
sub read {
my ($hd, $sector) = @_;
- my $tmp;
my $l = partition_table::dos::read($hd, $sector);
my @l = grep { $_->{size} && $_->{type} && !partition_table::isExtended($_) } @$l;
@@ -210,7 +209,7 @@ sub write {
}
sub raw_removed {
- my ($hd, $raw) = @_;
+ my ($_hd, $raw) = @_;
@$raw = grep { $_->{size} && $_->{type} } @$raw;
}
sub can_raw_add {
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;
diff --git a/perl-install/partition_table/raw.pm b/perl-install/partition_table/raw.pm
index a10d6d568..ac0c79aac 100644
--- a/perl-install/partition_table/raw.pm
+++ b/perl-install/partition_table/raw.pm
@@ -125,7 +125,7 @@ sub kernel_read($) {
}
sub raw_removed {
- my ($hd, $raw) = @_;
+ my ($_hd, $_raw) = @_;
}
sub can_raw_add {
my ($hd) = @_;
@@ -133,7 +133,7 @@ sub can_raw_add {
0;
}
sub raw_add {
- my ($hd, $raw, $part) = @_;
+ my ($_hd, $raw, $part) = @_;
foreach (@$raw) {
$_->{size} || $_->{type} and next;