From 459eedd7dc7ef289f379d2fc1dc691a057d1e144 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 18 Nov 2004 13:25:45 +0000
Subject: remove some unneeded ";", add some for normalization (as told by
 perl_checker)

---
 perl-install/common.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'perl-install/common.pm')

diff --git a/perl-install/common.pm b/perl-install/common.pm
index 015d266bf..f635cd9f2 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -30,7 +30,7 @@ our $SECTORSIZE  = 512;
 sub sprintf_fixutf8 {
     my $need_upgrade;
     $need_upgrade |= to_bool(c::is_tagged_utf8($_)) + 1 foreach @_;
-    if ($need_upgrade == 3) { c::upgrade_utf8($_) foreach @_ };
+    if ($need_upgrade == 3) { c::upgrade_utf8($_) foreach @_ }
     sprintf shift, @_;
 }
 
@@ -156,12 +156,12 @@ sub expand_symlinks_but_simple {
 	# put back the last simple symlink
 	$f2 =~ s|\Q$link\E$|basename($f)|e;
     }
-    $f2
+    $f2;
 }
 
 sub sync { &MDK::Common::System::sync }
 
-BEGIN { undef *formatError };
+BEGIN { undef *formatError }
 sub formatError {
     my ($err) = @_;
     ref($err) eq 'SCALAR' and $err = $$err;
@@ -174,7 +174,7 @@ sub group_n_lm {
     my $n = shift;
     my @l;
     push @l, [ splice(@_, 0, $n) ] while @_;
-    @l
+    @l;
 }
 
 sub screenshot_dir__and_move() {
@@ -259,7 +259,7 @@ sub set_permissions {
 }
 
 sub mandrake_release() {
-    chomp_(cat_("/etc/mandrakelinux-release"))
+    chomp_(cat_("/etc/mandrakelinux-release"));
 }
 
 sub require_root_capability() {
-- 
cgit v1.2.1