summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-11-18 12:56:28 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-11-18 12:56:28 +0000
commit61e9dee449abcafbca19bcfc07b1242fb836c471 (patch)
tree0ff5fb75826b4448539d8e601e390aeabde4eec6 /perl-install/partition_table
parent7793c34be4c62fe10518191ad720a7731a01a0f1 (diff)
downloaddrakx-backup-do-not-use-61e9dee449abcafbca19bcfc07b1242fb836c471.tar
drakx-backup-do-not-use-61e9dee449abcafbca19bcfc07b1242fb836c471.tar.gz
drakx-backup-do-not-use-61e9dee449abcafbca19bcfc07b1242fb836c471.tar.bz2
drakx-backup-do-not-use-61e9dee449abcafbca19bcfc07b1242fb836c471.tar.xz
drakx-backup-do-not-use-61e9dee449abcafbca19bcfc07b1242fb836c471.zip
add some ";", remove some ";", as told by perl_checker
Diffstat (limited to 'perl-install/partition_table')
-rw-r--r--perl-install/partition_table/gpt.pm4
-rw-r--r--perl-install/partition_table/mac.pm10
-rw-r--r--perl-install/partition_table/raw.pm2
3 files changed, 8 insertions, 8 deletions
diff --git a/perl-install/partition_table/gpt.pm b/perl-install/partition_table/gpt.pm
index 423d73a7a..3e0ac631b 100644
--- a/perl-install/partition_table/gpt.pm
+++ b/perl-install/partition_table/gpt.pm
@@ -112,7 +112,7 @@ sub read_header {
$info{revision} <= $current_revision or log::l("oops, this is a new GPT revision ($info{revision} > $current_revision)");
$info{headerCRC32} == compute_headerCRC32(\%info) or die "bad partition table checksum";
- \%info
+ \%info;
}
sub read_partitionEntries {
@@ -169,7 +169,7 @@ sub write {
$_->{gpt_type} = $gpt_types{$_->{pt_type}} || $_->{gpt_type} || $gpt_types{0x83};
}
my $partitionEntries = join('', map {
- pack($partitionEntry_format, @$_{@$partitionEntry_fields})
+ pack($partitionEntry_format, @$_{@$partitionEntry_fields});
} (@$pt, ({}) x ($info->{nbPartitions} - @$pt)));
$info->{partitionEntriesCRC32} = crc32($partitionEntries);
diff --git a/perl-install/partition_table/mac.pm b/perl-install/partition_table/mac.pm
index 4b60710bb..1c792519a 100644
--- a/perl-install/partition_table/mac.pm
+++ b/perl-install/partition_table/mac.pm
@@ -175,7 +175,7 @@ sub read($$) {
} else {
$h{pt_type} = 0x401;
$h{isDriver} = 1;
- };
+ }
# Let's see if this partition is a driver.
foreach (@{$info{ddMap}}) {
@@ -185,7 +185,7 @@ sub read($$) {
}
\%h;
} [ $part ];
- };
+ }
[ @pt ], \%info;
}
@@ -225,7 +225,7 @@ sub write($$$;$) {
};
}
push @partstowrite, $part;
- };
+ }
# now, fill a gap at the end if there is one.
if ($last->{start} + $last->{size} < $hd->{totalsectors}) {
@@ -327,7 +327,7 @@ sub write($$$;$) {
$_->{pName} = "Extra";
$_->{pFlags} = 0x31;
}
- };
+ }
$_->{pMapEntry} = @partstowrite;
syswrite $F, pack($p_format, @$_{@$p_fields}), psizeof($p_format) or return 0;
}
@@ -384,7 +384,7 @@ sub clear_raw {
push @{$pt->{normal}}, $pt->{raw}[$i];
$i++;
}
- };
+ }
@{$pt->{info}{ddMap}} = @{$hd->{primary}{info}{ddMap}};
$pt;
diff --git a/perl-install/partition_table/raw.pm b/perl-install/partition_table/raw.pm
index 01193b190..53d16024d 100644
--- a/perl-install/partition_table/raw.pm
+++ b/perl-install/partition_table/raw.pm
@@ -160,7 +160,7 @@ sub get_geometry {
if ($total = c::total_sectors(fileno $F)) {
compute_nb_cylinders(\%geom, $total);
} else {
- $total = $geom{heads} * $geom{sectors} * $geom{cylinders}
+ $total = $geom{heads} * $geom{sectors} * $geom{cylinders};
}
{ geom => \%geom, totalsectors => $total };