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 ++--
 perl-install/partition_table/mac.pm | 10 +++++-----
 perl-install/partition_table/raw.pm |  2 +-
 3 files changed, 8 insertions(+), 8 deletions(-)

(limited to 'perl-install/partition_table')

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