From a80824189d2947c4cee72c35627cbf187c44fb3d Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 25 Nov 2002 22:44:01 +0000 Subject: make perl_checker happy --- perl-install/diskdrake/interactive.pm | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) (limited to 'perl-install/diskdrake') 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; } -- cgit v1.2.1