From 73c851144720e28b21a491b6250385170db9d752 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 24 Apr 2003 19:00:12 +0000
Subject: perl_checker adaptations + fixes

---
 perl-install/diskdrake/hd_gtk.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'perl-install/diskdrake/hd_gtk.pm')

diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm
index 2071b3e4a..82fe1964a 100644
--- a/perl-install/diskdrake/hd_gtk.pm
+++ b/perl-install/diskdrake/hd_gtk.pm
@@ -304,11 +304,11 @@ sub create_buttons4partitions {
 ################################################################################
 # disks: helpers
 ################################################################################
-sub current_hd { 
+sub current_hd() { 
     $current_kind->{type} eq 'hd' or die 'current_hd called but $current_kind is not an hd';
     $current_kind->{val};
 }
-sub current_part {
+sub current_part() {
     current_hd();
     $current_entry;
 }
@@ -369,14 +369,14 @@ sub lvm2kind {
 ################################################################################
 # raids: helpers
 ################################################################################
-sub raid2kind {
+sub raid2kind() {
     { type => 'raid', name => 'raid', val => $all_hds->{raids} };
 }
 
 ################################################################################
 # loopbacks: helpers
 ################################################################################
-sub loopback2kind {
+sub loopback2kind() {
     { type => 'loopback', name => 'loopback', val => $all_hds->{loopbacks} };
 }
 
-- 
cgit v1.2.1