add ";" to please perl_checker

3 files changed, 8 insertions, 8 deletions

diff --git a/MDK/Common/Func.pm b/MDK/Common/Func.pm
index e954a0b..eca3493 100644
--- a/MDK/Common/Func.pm
+++ b/MDK/Common/Func.pm
@@ -198,7 +198,7 @@ sub fold_left(&@) {
     local ($::a, $::b);
     $::a = $initial;
     foreach (@l) { $::b = $_; $::a = &$f() }
-    $::a
+    $::a;
 }
 
 sub smapn {
@@ -206,7 +206,7 @@ sub smapn {
     my $n = shift;
     my @r;
     for (my $i = 0; $i < $n; $i++) { push @r, &$f(map { $_->[$i] } @_) }
-    @r
+    @r;
 }
 sub mapn(&@) {
     my $f = shift;
@@ -220,7 +220,7 @@ sub mapn_(&@) {
 sub find(&@) {
     my $f = shift;
     $f->($_) and return $_ foreach @_;
-    undef
+    undef;
 }
 sub any(&@) {
     my $f = shift;
diff --git a/MDK/Common/Math.pm b/MDK/Common/Math.pm
index c49c828..c1ce753 100644
--- a/MDK/Common/Math.pm
+++ b/MDK/Common/Math.pm
@@ -165,13 +165,13 @@ sub decimal2fraction { # ex: 1.33333333 -> (4, 3)
 	($c, $d) = ($c * $k + $d, $c);
 	$n -= $k;
     }
-    ($a, $c)
+    ($a, $c);
 }
 
 sub poly2 {
     my ($a, $b, $c) = @_;
     my $d = ($b**2 - 4 * $a * $c) ** 0.5;  
-    (-$b + $d) / 2 / $a, (-$b - $d) / 2 / $a
+    (-$b + $d) / 2 / $a, (-$b - $d) / 2 / $a;
 }
 
 # A(n,p)
@@ -181,14 +181,14 @@ sub permutations {
     for ($r = 1, $i = 0; $i < $p; $i++) {
 	$r *= $n - $i;
     }
-    $r
+    $r;
 }
 
 # C(n,p)
 sub combinaisons {
     my ($n, $p) = @_;
 
-    permutations($n, $p) / factorial($p)
+    permutations($n, $p) / factorial($p);
 }
 
 sub factorial { permutations($_[0], $_[0]) }
diff --git a/MDK/Common/System.pm b/MDK/Common/System.pm
index 29b8472..235a530 100644
--- a/MDK/Common/System.pm
+++ b/MDK/Common/System.pm
@@ -232,7 +232,7 @@ sub distrib() {
     my $company = $oem{COMPANY} || 'Mandrakesoft';
     my $system = $oem{SYSTEM} || $real_system;
     my $product = $oem{PRODUCT} || $real_product;
-    (company => $company, system => $system, product => $product, real_system => $real_system, real_product => $real_product)
+    (company => $company, system => $system, product => $product, real_system => $real_system, real_product => $real_product);
 }
 
 sub typeFromMagic {