From eb709bbd83e5979dda24e401fb51a83f14412f39 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 5 Jan 2004 13:45:42 +0000
Subject: perl_checker fixes

---
 perl-install/partition_table/mac.pm | 1 -
 perl-install/partition_table/raw.pm | 2 +-
 perl-install/partition_table/sun.pm | 1 -
 3 files changed, 1 insertion(+), 3 deletions(-)

(limited to 'perl-install/partition_table')

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;
-- 
cgit v1.2.1