diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-27 20:50:12 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-27 20:50:12 +0000 |
| commit | b0d554c4155060ed665844fdf7b2a08db9bb3356 (patch) | |
| tree | d1236029c2ac147b49a2da74bf132c3f56619406 /perl-install/partition_table/gpt.pm | |
| parent | c2b148e1e94892d8d72000ed087b607ae28b5808 (diff) | |
| download | drakx-backup-do-not-use-b0d554c4155060ed665844fdf7b2a08db9bb3356.tar drakx-backup-do-not-use-b0d554c4155060ed665844fdf7b2a08db9bb3356.tar.gz drakx-backup-do-not-use-b0d554c4155060ed665844fdf7b2a08db9bb3356.tar.bz2 drakx-backup-do-not-use-b0d554c4155060ed665844fdf7b2a08db9bb3356.tar.xz drakx-backup-do-not-use-b0d554c4155060ed665844fdf7b2a08db9bb3356.zip | |
perl_checker adaptations
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 425a34e39..ef8ddb187 100644 --- a/perl-install/partition_table/gpt.pm +++ b/perl-install/partition_table/gpt.pm @@ -167,7 +167,7 @@ sub write { foreach (@$pt) { $_->{ending} = $_->{start} + $_->{size} - 1; - $_->{guid} ||= generate_guid; + $_->{guid} ||= generate_guid(); $_->{gpt_type} = $gpt_types{$_->{type}} || $_->{gpt_type} || $gpt_types{0x83}; } my $partitionEntries = join('', map { @@ -251,7 +251,7 @@ sub info { alternateLBA => $hd->{totalsectors} - 1, firstUsableLBA => $nb_sect + 2, lastUsableLBA => $hd->{totalsectors} - $nb_sect - 2, - guid => generate_guid, + guid => generate_guid(), partitionEntriesLBA => 2, nbPartitions => $nb_sect * 512 / psizeof($partitionEntry_format), partitionEntrySize => psizeof($partitionEntry_format), |