diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-07-21 00:09:09 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-07-21 00:09:09 +0000 |
| commit | 54b71cdf438434e4693aa6064596f4fdb4aac59e (patch) | |
| tree | 50ece69f31e845c9a9f24db7218635b203d632bd /perl-install | |
| parent | ad0731569eec0d8b5ebe7fb11083edd981c76921 (diff) | |
| download | drakx-backup-do-not-use-54b71cdf438434e4693aa6064596f4fdb4aac59e.tar drakx-backup-do-not-use-54b71cdf438434e4693aa6064596f4fdb4aac59e.tar.gz drakx-backup-do-not-use-54b71cdf438434e4693aa6064596f4fdb4aac59e.tar.bz2 drakx-backup-do-not-use-54b71cdf438434e4693aa6064596f4fdb4aac59e.tar.xz drakx-backup-do-not-use-54b71cdf438434e4693aa6064596f4fdb4aac59e.zip | |
perl_checker compliance
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/network/smb.pm | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/drakpxe | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/draksec | 2 |
3 files changed, 3 insertions, 3 deletions
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; |