diff options
Diffstat (limited to 'perl-install/standalone/drakgw')
| -rwxr-xr-x | perl-install/standalone/drakgw | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/standalone/drakgw b/perl-install/standalone/drakgw index 881cb279b..adfedc197 100755 --- a/perl-install/standalone/drakgw +++ b/perl-install/standalone/drakgw @@ -264,7 +264,7 @@ my $internal_domain_name = network::network::read_dhcpd_conf()->{domain_name}[0] my $reconf_dhcp_server_intf = 1; -if (grep { /$device/ } @configured_devices) { +if (any { /$device/ } @configured_devices) { step_warning_already_conf: my $auto = N("Yes"); my $_dhcp_details = N("Yes"); @@ -332,7 +332,7 @@ log::explanations("Using LAN address <$lan_address>"); #- test for potential conflict with other networks foreach (grep { $_ ne $device } @configured_devices) { - grep { /$lan_address/ } cat_("/etc/sysconfig/network-scripts/ifcfg-$_") and + any { /$lan_address/ } cat_("/etc/sysconfig/network-scripts/ifcfg-$_") and ($in->ask_warn('', N("Potential LAN address conflict found in current config of %s!\n", $_)) or goto step_detectsetup); } @@ -377,7 +377,7 @@ my %rpm2file = ('dhcp-server' => '/usr/sbin/dhcpd', my @needed_to_install = grep { !-e $rpm2file{$_} } keys %rpm2file; @needed_to_install and $in->do_pkgs->install(@needed_to_install); #- second: try one by one if failure detected -if (grep { !-e $rpm2file{$_} } keys %rpm2file) { +if (any { !-e $rpm2file{$_} } keys %rpm2file) { foreach (keys %rpm2file) { -e $rpm2file{$_} or $in->do_pkgs->install($_); -e $rpm2file{$_} or fatal_quit(N("Problems installing package %s", $_)); @@ -467,7 +467,7 @@ if (-f $cups_conf) { # Cut out the root location block so that it can be treated seperately # without affecting the rest of the file - if (grep { m|^\s*<Location\s+/\s*>| } @cups_conf_content) { + if (any { m|^\s*<Location\s+/\s*>| } @cups_conf_content) { $root_location_start = -1; $root_location_end = -1; # Go through all the lines, bail out when start and end line found @@ -568,7 +568,7 @@ Click on Configure to launch the setup wizard.", $setup_state)); my $button_cancel = Gtk2::Button->new(N("Cancel")); $button_cancel->signal_connect(clicked => sub { ugtk2->exit(0) }); $bbox1->add($button_cancel); - $window1->{rwindow}->show_all(); + $window1->{rwindow}->show_all; $window1->main; ugtk2->exit(0); |