summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/diskdrake/interactive.pm24
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;
}