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/mac.pm1
-rw-r--r--perl-install/partition_table/raw.pm2
-rw-r--r--perl-install/partition_table/sun.pm1
3 files changed, 1 insertions, 3 deletions
diff --git a/perl-install/partition_table/mac.pm b/perl-install/partition_table/mac.pm
index 004baffbe..26a7bc7a5 100644
--- a/perl-install/partition_table/mac.pm
+++ b/perl-install/partition_table/mac.pm
@@ -25,7 +25,6 @@ my %typeToDos = (
"Apple_UNIX_SVR2" => 0x483,
"Apple_Free" => 0x0,
);
-my %typeFromDos = reverse %typeToDos;
my ($bz_format, $bz_fields) = list2kv(
diff --git a/perl-install/partition_table/raw.pm b/perl-install/partition_table/raw.pm
index acbec0458..5713e69d6 100644
--- a/perl-install/partition_table/raw.pm
+++ b/perl-install/partition_table/raw.pm
@@ -110,7 +110,7 @@ sub get_geometry($) {
sub openit {
my ($hd, $o_mode) = @_;
- my $F; sysopen($F, $hd->{file}, $o_mode || 0) and $F;
+ my $F; sysopen($F, $hd->{file}, $o_mode || 0) && $F;
}
# cause kernel to re-read partition table
diff --git a/perl-install/partition_table/sun.pm b/perl-install/partition_table/sun.pm
index b92724e1f..951a4b471 100644
--- a/perl-install/partition_table/sun.pm
+++ b/perl-install/partition_table/sun.pm
@@ -34,7 +34,6 @@ $main_format = join '', @$main_format;
my ($fields1, $fields2) = ([ qw(type flags) ], [ qw(start_cylinder size) ]);
my ($format1, $format2) = ("xCxC", "N2");
-my ($size1, $size2) = map { psizeof($_) } ($format1, $format2);
my $magic = 0xDABE;
my $nb_primary = 8;
my $offset = 0;