diff options
| author | Damien Chaumette <dchaumette@mandriva.com> | 2003-05-02 16:55:17 +0000 |
|---|---|---|
| committer | Damien Chaumette <dchaumette@mandriva.com> | 2003-05-02 16:55:17 +0000 |
| commit | b501550fd329ec675ad88ecde3657bf67aebe588 (patch) | |
| tree | f891d2925890b7d2fc4a06a053c50807df528016 /perl-install/network/network.pm | |
| parent | d8f5b0de3c8959908d82be1b497ad17732bbac76 (diff) | |
| download | drakx-b501550fd329ec675ad88ecde3657bf67aebe588.tar drakx-b501550fd329ec675ad88ecde3657bf67aebe588.tar.gz drakx-b501550fd329ec675ad88ecde3657bf67aebe588.tar.bz2 drakx-b501550fd329ec675ad88ecde3657bf67aebe588.tar.xz drakx-b501550fd329ec675ad88ecde3657bf67aebe588.zip | |
perl_checker fixes
Diffstat (limited to 'perl-install/network/network.pm')
| -rw-r--r-- | perl-install/network/network.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm index df209fb35..977122fa8 100644 --- a/perl-install/network/network.pm +++ b/perl-install/network/network.pm @@ -253,7 +253,7 @@ sub is_domain_name { sub netmask { my ($ip) = @_; return "255.255.255.0" unless is_ip($ip); - $ip =~ $ip_regexp; + $ip =~ $ip_regexp or warn "IP_regexp failed\n" and return "255.255.255.0"; if ($1 >= 1 && $1 < 127) { "255.0.0.0"; #-1.0.0.0 to 127.0.0.0 } elsif ($1 >= 128 && $1 <= 191) { @@ -461,8 +461,9 @@ sub proxy_configure { } sub read_all_conf { - my ($prefix, $netc, $intf, $netcnx) = @_; - $netc ||= {}; $intf ||= {}; $netcnx ||= {}; + my ($prefix, $netc, $intf, $o_netcnx) = @_; + $netc ||= {}; $intf ||= {}; + my $netcnx = $o_netcnx || {}; add2hash($netc, read_conf("$prefix/etc/sysconfig/network")) if -r "$prefix/etc/sysconfig/network"; add2hash($netc, read_resolv_conf()); add2hash($netc, read_tmdns_conf("$prefix/etc/tmdns.conf")) if -r "$prefix/etc/tmdns.conf"; |