diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-11-18 13:25:45 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-11-18 13:25:45 +0000 |
| commit | 459eedd7dc7ef289f379d2fc1dc691a057d1e144 (patch) | |
| tree | a042f6f973b37076d459c3ec80404f9e4ffaa202 /perl-install/common.pm | |
| parent | fb67876005b9f7002d56f96269da9e6fb5d03b0f (diff) | |
| download | drakx-459eedd7dc7ef289f379d2fc1dc691a057d1e144.tar drakx-459eedd7dc7ef289f379d2fc1dc691a057d1e144.tar.gz drakx-459eedd7dc7ef289f379d2fc1dc691a057d1e144.tar.bz2 drakx-459eedd7dc7ef289f379d2fc1dc691a057d1e144.tar.xz drakx-459eedd7dc7ef289f379d2fc1dc691a057d1e144.zip | |
remove some unneeded ";", add some for normalization (as told by perl_checker)
Diffstat (limited to 'perl-install/common.pm')
| -rw-r--r-- | perl-install/common.pm | 10 |
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() { |