summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-07-21 00:09:09 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-07-21 00:09:09 +0000
commit54b71cdf438434e4693aa6064596f4fdb4aac59e (patch)
tree50ece69f31e845c9a9f24db7218635b203d632bd /perl-install/standalone
parentad0731569eec0d8b5ebe7fb11083edd981c76921 (diff)
downloaddrakx-54b71cdf438434e4693aa6064596f4fdb4aac59e.tar
drakx-54b71cdf438434e4693aa6064596f4fdb4aac59e.tar.gz
drakx-54b71cdf438434e4693aa6064596f4fdb4aac59e.tar.bz2
drakx-54b71cdf438434e4693aa6064596f4fdb4aac59e.tar.xz
drakx-54b71cdf438434e4693aa6064596f4fdb4aac59e.zip
perl_checker compliance
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakpxe2
-rwxr-xr-xperl-install/standalone/draksec2
2 files changed, 2 insertions, 2 deletions
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;