diff options
Diffstat (limited to 'perl-install/network')
| -rw-r--r-- | perl-install/network/adsl.pm | 2 | ||||
| -rw-r--r-- | perl-install/network/ethernet.pm | 2 | ||||
| -rw-r--r-- | perl-install/network/isdn.pm | 4 | ||||
| -rw-r--r-- | perl-install/network/isdn_consts.pm +++ b/perl-install/network/isdn_consts.pm @@ -1,6 +1,6 @@ package network::isdn; # $Id$ -@isdndata = +our @isdndata = ( { description => "Teles 16.0 (ISA)", #1 irq, mem, io driver => 'hisax', diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm index 55d5c324b..b99bc38b7 100644 --- a/perl-install/network/network.pm +++ b/perl-install/network/network.pm @@ -176,7 +176,7 @@ sub guessHostname { write_resolv_conf("$prefix/etc/resolv.conf", $netc); - my $name = gethostbyaddr(Socket::inet_aton($intf->{IPADDR}), AF_INET) or log::l("reverse name lookup failed"), return 0; + my $name = gethostbyaddr(Socket::inet_aton($intf->{IPADDR}), Socket::AF_INET()) or log::l("reverse name lookup failed"), return 0; log::l("reverse name lookup worked"); @@ -317,7 +317,7 @@ notation (for example, 1.2.3.4)."); { label => N("Automatic IP"), val => \$pump, type => "bool", text => N("(bootp/dhcp)") }, if_($::expert, { label => N("Start at boot"), val => \$onboot, type => "bool" }), if_($intf->{wireless_eth}, - { label => "WIRELESS_MODE", val => \$intf->{WIRELESS_MODE}, list => [ "Ad-hoc", "Managed", "Master", "Repeater", "Secondary", "Auto"] }, + { label => "WIRELESS_MODE", val => \$intf->{WIRELESS_MODE}, list => [ "Ad-hoc", "Managed", "Master", "Repeater", "Secondary", "Auto" ] }, { label => "WIRELESS_ESSID", val => \$intf->{WIRELESS_ESSID} }, { label => "WIRELESS_NWID", val => \$intf->{WIRELESS_NWID} }, { label => "WIRELESS_FREQ", val => \$intf->{WIRELESS_FREQ} }, diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm index 07d8e5d6e..78075fd68 100644 --- a/perl-install/network/tools.pm +++ b/perl-install/network/tools.pm @@ -129,12 +129,12 @@ sub detect_timezone { sub type2interface { my ($i) = @_; - $i =~ /$_->[0]/ and return $_->[1] foreach [ modem => 'ppp'], - [ isdn_internal => 'ippp'], - [ isdn_external => 'ppp'], - [ adsl => 'ppp'], - [ cable => 'eth'], - [ lan => 'eth']; + $i =~ /$_->[0]/ and return $_->[1] foreach [ modem => 'ppp' ], + [ isdn_internal => 'ippp' ], + [ isdn_external => 'ppp' ], + [ adsl => 'ppp' ], + [ cable => 'eth' ], + [ lan => 'eth' ]; } sub connected { gethostbyname("mandrakesoft.com") ? 1 : 0 } |