From b15901a3b7983a00c3a80c7a8ecf09a58f744095 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Fri, 16 Sep 2005 13:56:51 +0000
Subject: come on titi, no need to check we're root here

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

diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm
index 77297f02c..45da4b227 100644
--- a/perl-install/network/adsl.pm
+++ b/perl-install/network/adsl.pm
@@ -230,14 +230,14 @@ lcp-echo-failure 3
 
     if ($adsl_type =~ /^pp|^capi$/) {
         mkdir_p("$::prefix/etc/ppp");
-        $in->do_pkgs->install('ppp') if !$>;
+        $in->do_pkgs->install('ppp');
         my %packages = (
                         pppoa => [ qw(ppp-pppoatm) ],
                         pppoe => [ qw(ppp-pppoe rp-pppoe) ],
                         pptp  => [ qw(pptp-linux) ],
                         capi => [ qw(isdn4k-utils) ], #- capi4linux service
                        );
-        $in->do_pkgs->install(@{$packages{$adsl_type}}) if !$>;
+        $in->do_pkgs->install(@{$packages{$adsl_type}});
 
 	my $pty_option =
           exists $modems{$adsl_device}{server}{$adsl_type} ? "pty $modems{$adsl_device}{server}{$adsl_type}" :
-- 
cgit v1.2.1