diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-25 22:44:01 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-25 22:44:01 +0000 |
commit | a80824189d2947c4cee72c35627cbf187c44fb3d (patch) | |
tree | 42a121621c705c1c656d9010b7f5849c62abbf79 /perl-install/diskdrake | |
parent | daed6fab17f95fc91c9e32cca7f9081138e6d728 (diff) | |
download | drakx-a80824189d2947c4cee72c35627cbf187c44fb3d.tar drakx-a80824189d2947c4cee72c35627cbf187c44fb3d.tar.gz drakx-a80824189d2947c4cee72c35627cbf187c44fb3d.tar.bz2 drakx-a80824189d2947c4cee72c35627cbf187c44fb3d.tar.xz drakx-a80824189d2947c4cee72c35627cbf187c44fb3d.zip |
make perl_checker happy
Diffstat (limited to 'perl-install/diskdrake')
-rw-r--r-- | perl-install/diskdrake/interactive.pm | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm index 21acdc568..cb9266d99 100644 --- a/perl-install/diskdrake/interactive.pm +++ b/perl-install/diskdrake/interactive.pm @@ -897,18 +897,18 @@ sub Options { { no strict; - *{"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; - *{"Modify RAID"} = *ModifyRAID; - *{"Add to RAID"} = *Add2RAID; - *{"Remove from RAID"} = *RemoveFromRAID; - *{"Add to LVM"} = *Add2LVM; - *{"Remove from LVM"} = *RemoveFromLVM; - *{"Use for loopback"} = *Loopback; - *{"Hard drive information"} = *Hd_info; + *{'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; + *{'Modify RAID'} = \&ModifyRAID; + *{'Add to RAID'} = \&Add2RAID; + *{'Remove from RAID'} = \&RemoveFromRAID; + *{'Add to LVM'} = \&Add2LVM; + *{'Remove from LVM'} = \&RemoveFromLVM; + *{'Use for loopback'} = \&Loopback; + *{'Hard drive information'} = \&Hd_info; } |