diff options
Diffstat (limited to 'perl-install/partition_table')
| -rw-r--r-- | perl-install/partition_table/mac.pm | 1 | ||||
| -rw-r--r-- | perl-install/partition_table/raw.pm | 2 | ||||
| -rw-r--r-- | perl-install/partition_table/sun.pm | 1 |
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; |