From bd991a1b73d7b0fb7cc9bfab9474ecf87a2f816c Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 5 Aug 2004 02:33:21 +0000
Subject: quiet perl_checker

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

(limited to 'perl-install/network')

diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm
index c43b82459..49c33d707 100644
--- a/perl-install/network/adsl.pm
+++ b/perl-install/network/adsl.pm
@@ -318,8 +318,8 @@ TYPE=$kind
     write_cnx_script($netc);
 
     unless ($::isStandalone) {
-        $modems{$adsl_device}{modules} and eval { modules::load(@{$modems{$adsl_device}{modules}}) }
-          or log::l "failled to load " . join('', @{$modems{$adsl_device}{modules}}), " modules: $@";
+        $modems{$adsl_device}{modules} && eval { modules::load(@{$modems{$adsl_device}{modules}}) }
+          or log::l("failled to load " . join('', @{$modems{$adsl_device}{modules}}), " modules: $@");
         $modems{$adsl_device}{start} and run_program::rooted($::prefix, $modems{$adsl_device}{start});
     }
 }
-- 
cgit v1.2.1