diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-01-05 13:45:42 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-01-05 13:45:42 +0000 |
| commit | eb709bbd83e5979dda24e401fb51a83f14412f39 (patch) | |
| tree | 83c32db4c8d6f4afc3aa28ef8d895ca869e279e6 /perl-install/partition_table | |
| parent | cdef0fd204617c22ce6daa871284f3b454afd7da (diff) | |
| download | drakx-eb709bbd83e5979dda24e401fb51a83f14412f39.tar drakx-eb709bbd83e5979dda24e401fb51a83f14412f39.tar.gz drakx-eb709bbd83e5979dda24e401fb51a83f14412f39.tar.bz2 drakx-eb709bbd83e5979dda24e401fb51a83f14412f39.tar.xz drakx-eb709bbd83e5979dda24e401fb51a83f14412f39.zip | |
perl_checker fixes
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; |