summaryrefslogtreecommitdiffstats
path: root/perl-install/common.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/common.pm')
-rw-r--r--perl-install/common.pm10
1 files changed, 5 insertions, 5 deletions
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() {