diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-06-06 10:24:45 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-06-06 10:24:45 +0000 |
| commit | 5bf0bd6b8306216de14b62130108420733ab0d6c (patch) | |
| tree | 0450caae37597342264b8e140bd4a71a44f919f5 /perl-install/diskdrake | |
| parent | 18cbe61b9aadffa0bd05a7ec224f64c49619e021 (diff) | |
| download | drakx-5bf0bd6b8306216de14b62130108420733ab0d6c.tar drakx-5bf0bd6b8306216de14b62130108420733ab0d6c.tar.gz drakx-5bf0bd6b8306216de14b62130108420733ab0d6c.tar.bz2 drakx-5bf0bd6b8306216de14b62130108420733ab0d6c.tar.xz drakx-5bf0bd6b8306216de14b62130108420733ab0d6c.zip | |
fix typos + perl_checker fixes
Diffstat (limited to 'perl-install/diskdrake')
| -rw-r--r-- | perl-install/diskdrake/interactive.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm index b279d96d2..410391a13 100644 --- a/perl-install/diskdrake/interactive.pm +++ b/perl-install/diskdrake/interactive.pm @@ -466,7 +466,7 @@ sub Create { { label => N("Preference: "), val => \$primaryOrExtended, list => [ '', "Extended", "Primary", if_($::expert, "Extended_0x85") ] }, ), if_($::expert && isLVM($hd), - { label => _("Logical volume name "), val => \$part->{lv_name}, list => [ qw(root swap usr home var), '' ], sort => 0, not_edit => 0 }, + { label => N("Logical volume name "), val => \$part->{lv_name}, list => [ qw(root swap usr home var), '' ], sort => 0, not_edit => 0 }, ), ], changed => sub { if ($part->{start} + ($mb_size << 11) > $max) { @@ -892,7 +892,7 @@ sub Options { my (undef, $user_implies) = fs::mount_options(); my ($options, $unknown) = fs::mount_options_unpack($part); - my %help = fs::mount_options_help(keys %$options); + my %help = fs::mount_options_help(); my $prev_user = $options->{user}; $in->ask_from(N("Mount options"), @@ -1233,8 +1233,8 @@ sub choose_encrypt_key { messages => N("Choose your filesystem encryption key"), callbacks => { complete => sub { - length $encrypt_key < 20 and $in->ask_warn('', N("This encryption key is too simple (must be at least %d characters long)", 20)), return (1,0); - $encrypt_key eq $encrypt_key2 or $in->ask_warn('', [ N("The encryption keys do not match"), N("Please try again") ]), return (1,1); + length $encrypt_key < 20 and $in->ask_warn('', N("This encryption key is too simple (must be at least %d characters long)", 20)), return 1,0; + $encrypt_key eq $encrypt_key2 or $in->ask_warn('', [ N("The encryption keys do not match"), N("Please try again") ]), return 1,1; return 0 } } }, [ { label => N("Encryption key"), val => \$encrypt_key, hidden => 1 }, |