From c76a519370feec63a44e7f5fd5c9940ce2f79a59 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 23 Mar 2001 16:24:33 +0000
Subject: ifix the dams stuff

---
 perl-install/any.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 543ea7e0f..d6f801398 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -407,8 +407,8 @@ sub pppConfig {
     my ($in, $modem, $prefix, $install) = @_;
     $modem or return;
 
-    if_($modem->{device} ne "$prefix/dev/modem",
-	symlinkf($modem->{device}, "$prefix/dev/modem") or log::l("creation of $prefix/dev/modem failed"));
+    symlinkf($modem->{device}, "$prefix/dev/modem") or log::l("creation of $prefix/dev/modem failed")
+      if $modem->{device} ne "/dev/modem";
     $install->(qw(ppp)) unless $::testing;
 
     my %toreplace;
-- 
cgit v1.2.1