perl_checker fixes

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;