diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-04-24 19:00:12 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-04-24 19:00:12 +0000 |
| commit | 73c851144720e28b21a491b6250385170db9d752 (patch) | |
| tree | dcc9fae4302b3d083ad7cc7a808e5d17f970bb8c /perl-install/diskdrake/interactive.pm | |
| parent | 0dc3338257439d2265c1eb13c3a66c9431c88cb5 (diff) | |
| download | drakx-73c851144720e28b21a491b6250385170db9d752.tar drakx-73c851144720e28b21a491b6250385170db9d752.tar.gz drakx-73c851144720e28b21a491b6250385170db9d752.tar.bz2 drakx-73c851144720e28b21a491b6250385170db9d752.tar.xz drakx-73c851144720e28b21a491b6250385170db9d752.zip | |
perl_checker adaptations + fixes
Diffstat (limited to 'perl-install/diskdrake/interactive.pm')
| -rw-r--r-- | perl-install/diskdrake/interactive.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm index f32c872c7..85cdfa54e 100644 --- a/perl-install/diskdrake/interactive.pm +++ b/perl-install/diskdrake/interactive.pm @@ -235,6 +235,7 @@ sub main { # general actions ################################################################################ sub general_possible_actions { + my ($_in, $_all_hds) = @_; N_("Undo"), ($::expert ? N_("Toggle to normal mode") : N_("Toggle to expert mode")); } @@ -932,8 +933,8 @@ sub Options { { no strict; - *{'Toggle to normal mode'} = sub { $::expert = 0 }; - *{'Toggle to expert mode'} = sub { $::expert = 1 }; + *{'Toggle to normal mode'} = sub() { $::expert = 0 }; + *{'Toggle to expert mode'} = sub() { $::expert = 1 }; *{'Clear all'} = \&Clear_all; *{'Auto allocate'} = \&Auto_allocate; *{'Mount point'} = \&Mount_point; |