diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-04-17 11:34:32 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-04-17 11:34:32 +0000 |
| commit | 4781e491c32fdfe0dbe3cf97a8aca90040a9406b (patch) | |
| tree | ca4f166763cc8be7bc01e943dcbf5a058758060d /perl-install/any.pm | |
| parent | 5458ef92ec80fab427e4d69b5cdd22bb76b261d8 (diff) | |
| download | drakx-backup-do-not-use-4781e491c32fdfe0dbe3cf97a8aca90040a9406b.tar drakx-backup-do-not-use-4781e491c32fdfe0dbe3cf97a8aca90040a9406b.tar.gz drakx-backup-do-not-use-4781e491c32fdfe0dbe3cf97a8aca90040a9406b.tar.bz2 drakx-backup-do-not-use-4781e491c32fdfe0dbe3cf97a8aca90040a9406b.tar.xz drakx-backup-do-not-use-4781e491c32fdfe0dbe3cf97a8aca90040a9406b.zip | |
new perl_checker compliance
Diffstat (limited to 'perl-install/any.pm')
| -rw-r--r-- | perl-install/any.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index 39b10df6b..423bf990c 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -81,7 +81,7 @@ sub hdInstallPath() { } sub kernelVersion { - my $kernel = readlink "$::prefix/boot/vmlinuz" || first(all("$::prefix/boot")); + my $kernel = readlink("$::prefix/boot/vmlinuz") || first(all("$::prefix/boot")); first($kernel =~ /vmlinuz-(.*)/); } @@ -501,19 +501,19 @@ sub shells { } sub inspect { - my ($part, $prefix, $rw) = @_; + my ($part, $o_prefix, $b_rw) = @_; isMountableRW($part) or return; my $dir = $::isInstall ? "/tmp/inspect_tmp_dir" : "/root/.inspect_tmp_dir"; if ($part->{isMounted}) { - $dir = ($prefix || '') . $part->{mntpoint}; + $dir = ($o_prefix || '') . $part->{mntpoint}; } elsif ($part->{notFormatted} && !$part->{isFormatted}) { $dir = ''; } else { mkdir $dir, 0700; - eval { fs::mount($part->{device}, $dir, type2fs($part), !$rw) }; + eval { fs::mount($part->{device}, $dir, type2fs($part), !$b_rw) }; $@ and return; } my $h = before_leaving { @@ -565,7 +565,7 @@ sub ask_users { cancel => N("Accept user"), callbacks => { focus_out => sub { - if ($_[0] eq 0) { + if ($_[0] eq '0') { $u->{name} ||= lc first($u->{realname} =~ /([\w-]+)/); } }, |