summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table/mac.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-12 14:05:52 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-12 14:05:52 +0000
commitfc6a72175bf8ee7aed801e4003991e8e9c67c304 (patch)
tree7f435f15fbc29d6869ddd1db9cd95ef33ba77fde /perl-install/partition_table/mac.pm
parent7902fe25c4e57756cbae9cce1e6a88c32e04b9f4 (diff)
downloaddrakx-fc6a72175bf8ee7aed801e4003991e8e9c67c304.tar
drakx-fc6a72175bf8ee7aed801e4003991e8e9c67c304.tar.gz
drakx-fc6a72175bf8ee7aed801e4003991e8e9c67c304.tar.bz2
drakx-fc6a72175bf8ee7aed801e4003991e8e9c67c304.tar.xz
drakx-fc6a72175bf8ee7aed801e4003991e8e9c67c304.zip
add/remove some spaces to make perl_checker happy
Diffstat (limited to 'perl-install/partition_table/mac.pm')
-rw-r--r--perl-install/partition_table/mac.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/partition_table/mac.pm b/perl-install/partition_table/mac.pm
index 33b63aa99..131dcb72f 100644
--- a/perl-install/partition_table/mac.pm
+++ b/perl-install/partition_table/mac.pm
@@ -257,7 +257,7 @@ sub write($$$;$) {
syswrite F, pack($dd_format, @$_{@$dd_fields}), psizeof($dd_format) or return 0;
}
# zero the rest of the data in the first block.
- foreach ( 1 .. (494 - ((@ddstowrite) * 8))) {
+ foreach (1 .. (494 - ((@ddstowrite) * 8))) {
syswrite F, "\0", 1 or return 0;
}
#c::lseek_sector(fileno(F), $sector, 512) or return 0;