From b0d554c4155060ed665844fdf7b2a08db9bb3356 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 27 Nov 2002 20:50:12 +0000
Subject: perl_checker adaptations

---
 perl-install/partition_table/gpt.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/partition_table/gpt.pm')

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