From bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 11 Nov 2002 19:11:59 +0000
Subject: add or remove spaces where need to please perl_checker

---
 perl-install/partition_table/bsd.pm    | 4 ++--
 perl-install/partition_table/lvm_PV.pm | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/partition_table')

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