From 61e9dee449abcafbca19bcfc07b1242fb836c471 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 18 Nov 2004 12:56:28 +0000
Subject: add some ";", remove some ";", as told by perl_checker

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