From b706220ef9ea230f9537df5380507cee52c96333 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Mon, 27 Aug 2001 16:53:40 +0000
Subject: add_devfslink

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

(limited to 'perl-install/any.pm')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 2522aac35..ce688e846 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -399,8 +399,9 @@ sub pppConfig {
     my ($in, $modem, $prefix) = @_;
     $modem or return;
 
-    symlinkf($modem->{device}, "$prefix/dev/modem") or log::l("creation of $prefix/dev/modem failed")
-      if $modem->{device} ne "/dev/modem";
+    if ($modem->{device} ne "/dev/modem") {
+	symlinkf($modem->{device}, "$prefix/dev/modem") ? add_devfslink($prefix, "$prefix/dev/modem") : or log::l("creation of $prefix/dev/modem failed")
+    }
     $in->do_pkgs->install('ppp') if !$::testing;
 
     my %toreplace;
@@ -828,4 +829,9 @@ sub report_bug {
       map_index { even($::i) ? header($_) : $_ } @other;
 }
 
+sub add_devfslink {
+    my ($prefix, $link) = @_;
+    commands::cp("-f", $link, "$prefix/lib/dev-state/");
+}
+
 1;
-- 
cgit v1.2.1