From d30e30df42007625950e370a9fb3ef253a9cc555 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 20 Jan 2004 15:29:02 +0000
Subject: fix dyn/static stuff

---
 perl-install/network/modem.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'perl-install/network')

diff --git a/perl-install/network/modem.pm b/perl-install/network/modem.pm
index 0619abe58..50f43d525 100644
--- a/perl-install/network/modem.pm
+++ b/perl-install/network/modem.pm
@@ -37,8 +37,10 @@ sub ppp_configure {
     # handle static/dynamic settings:
     if ($modem->{auto_ip} eq N("Automatic")) {
         $toreplace{$_} = '0.0.0.0' foreach qw(IPAddr SubnetMask) ;
+    } else {
+        $toreplace{$_} = $modem->{$_} foreach qw(IPAddr SubnetMask) ;
     }
-    $toreplace{Gateway} = '0.0.0.0' if $modem->{auto_gateway} eq N("Automatic");
+    $toreplace{Gateway} = $modem->{auto_gateway} eq N("Automatic") ? '0.0.0.0' : $modem->{Gateway};
 
 
     #- build ifcfg-ppp0.
-- 
cgit v1.2.1