From 21d632055bbe913d53c3324d7465a38621d6d79e Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Sun, 22 Jul 2001 19:58:06 +0000
Subject: big work on isdn. Not finished

---
 perl-install/network/tools.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/network/tools.pm')

diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index 3cbbfdcd2..aff57e9b1 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -1,6 +1,6 @@
 package network::tools;
 
-use common qw(:common :file);
+use common qw(:common :file :system);
 use run_program;
 use vars qw(@ISA @EXPORT);
 use globals "network", qw($in $prefix $install $disconnect_file $connect_prog);
@@ -11,8 +11,8 @@ use globals "network", qw($in $prefix $install $disconnect_file $connect_prog);
 
 sub write_secret_backend {
     my ($a, $b) = @_;
-    foreach ("pap-secrets", "chap-secrets") {
-	substInFile { s/^$a.*\n//; $_ .= "\n'$a' * '$b' * \n" if eof  } "$prefix/etc/ppp/$_";
+    foreach my $i ("pap-secrets", "chap-secrets") {
+	substInFile { s/^$a.*\n//; $_ .= "\n'$a' * '$b' * \n" if eof  } "$prefix/etc/ppp/$i";
     }
 }
 
-- 
cgit v1.2.1