diff options
Diffstat (limited to 'perl-install/partition_table')
| -rw-r--r-- | perl-install/partition_table/bsd.pm | 4 | ||||
| -rw-r--r-- | perl-install/partition_table/lvm_PV.pm | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/partition_table/bsd.pm b/perl-install/partition_table/bsd.pm index 431d17f1f..dc85ab3cf 100644 --- a/perl-install/partition_table/bsd.pm +++ b/perl-install/partition_table/bsd.pm @@ -47,8 +47,8 @@ my ($main_format, $main_fields) = list2kv( S => 'npartitions', I => 'bbsize', I => 'sbsize', - a128=> 'partitions', - a236=> 'blank', + a128 => 'partitions', + a236 => 'blank', ); $main_format = join '', @$main_format; diff --git a/perl-install/partition_table/lvm_PV.pm b/perl-install/partition_table/lvm_PV.pm index 4a55d3810..dc84e74dc 100644 --- a/perl-install/partition_table/lvm_PV.pm +++ b/perl-install/partition_table/lvm_PV.pm @@ -29,7 +29,7 @@ sub read { sysread F, my $tmp, length $magic or die "error reading magic number on disk $hd->{file}"; $tmp eq $magic or die "bad magic number on disk $hd->{file}"; - [ ]; + []; } sub write { |