diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-11-18 12:56:28 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-11-18 12:56:28 +0000 |
| commit | 61e9dee449abcafbca19bcfc07b1242fb836c471 (patch) | |
| tree | 0ff5fb75826b4448539d8e601e390aeabde4eec6 /perl-install/partition_table/gpt.pm | |
| parent | 7793c34be4c62fe10518191ad720a7731a01a0f1 (diff) | |
| download | drakx-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/gpt.pm')
| -rw-r--r-- | perl-install/partition_table/gpt.pm | 4 |
1 files changed, 2 insertions, 2 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); |