From eb709bbd83e5979dda24e401fb51a83f14412f39 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 5 Jan 2004 13:45:42 +0000 Subject: perl_checker fixes --- perl-install/partition_table/sun.pm | 1 - 1 file changed, 1 deletion(-) (limited to 'perl-install/partition_table/sun.pm') 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