diff options
| author | damien <damien@mandriva.com> | 2001-07-22 19:58:06 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-07-22 19:58:06 +0000 |
| commit | 21d632055bbe913d53c3324d7465a38621d6d79e (patch) | |
| tree | 7c77561c2e33fd8c52c4fa8cc75e4364bbf0f5eb /perl-install/network/tools.pm | |
| parent | 62549c2cc589b26db909835e4ceb4a71c3e93630 (diff) | |
| download | drakx-21d632055bbe913d53c3324d7465a38621d6d79e.tar drakx-21d632055bbe913d53c3324d7465a38621d6d79e.tar.gz drakx-21d632055bbe913d53c3324d7465a38621d6d79e.tar.bz2 drakx-21d632055bbe913d53c3324d7465a38621d6d79e.tar.xz drakx-21d632055bbe913d53c3324d7465a38621d6d79e.zip | |
big work on isdn. Not finished
Diffstat (limited to 'perl-install/network/tools.pm')
| -rw-r--r-- | perl-install/network/tools.pm | 6 |
1 files changed, 3 insertions, 3 deletions
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"; } } |