From 54b71cdf438434e4693aa6064596f4fdb4aac59e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 21 Jul 2004 00:09:09 +0000
Subject: perl_checker compliance

---
 perl-install/network/smb.pm     | 2 +-
 perl-install/standalone/drakpxe | 2 +-
 perl-install/standalone/draksec | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/network/smb.pm b/perl-install/network/smb.pm
index 27a6a4186..4ef3f45a4 100644
--- a/perl-install/network/smb.pm
+++ b/perl-install/network/smb.pm
@@ -179,7 +179,7 @@ sub write_smb_conf {
 }
 
 sub write_smb_ads_conf {
-    my ($domain,$realm) = @_;
+    my ($domain, $realm) = @_;
 
     #- was going to just have a canned config in samba-winbind
     #- and replace the domain, but sylvestre/buchan didn't bless it yet
diff --git a/perl-install/standalone/drakpxe b/perl-install/standalone/drakpxe
index 97b5a3e07..94640b458 100755
--- a/perl-install/standalone/drakpxe
+++ b/perl-install/standalone/drakpxe
@@ -170,7 +170,7 @@ $in->ask_from('DHCP Server Configuration',
 
 The network address is %s using a netmask of %s.
 
-", @{$intf[0]}{qw(NETWORK NETMASK)}), [ { label => N("The DHCP start ip"), val => \$start_ip, type => 'entry' },
+", $intf[0]{NETWORK}, $intf[0]{NETMASK}), [ { label => N("The DHCP start ip"), val => \$start_ip, type => 'entry' },
 					{ label => N("The DHCP end ip"), val => \$end_ip, type => 'entry' }, ])
   or goto begin;
 
diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec
index d62d5a313..a3d11490f 100755
--- a/perl-install/standalone/draksec
+++ b/perl-install/standalone/draksec
@@ -118,7 +118,7 @@ maximum"))) ]);
 
 sub new_nonedit_combo {
     my ($string_list, $o_default_value) = @_;
-    my $w = Gtk2::ComboBox->new_text ;
+    my $w = Gtk2::ComboBox->new_text;
     $w->set_popdown_strings(to_i18n(@$string_list)) unless is_empty_array_ref $string_list;
     $w->entry->set_text(to_i18n($o_default_value)) if $o_default_value;
     $w;
-- 
cgit v1.2.1