diff options
author | damien <damien@mandriva.com> | 2001-08-10 20:15:30 +0000 |
---|---|---|
committer | damien <damien@mandriva.com> | 2001-08-10 20:15:30 +0000 |
commit | 98323d762c992c42b48b589a6e44df3e5db11d99 (patch) | |
tree | f2b0f976dec040763b6fa8f254aacf50a39ce0e7 /perl-install | |
parent | e1db5aa3ebe8512c881edb0a40dd280210c421cf (diff) | |
download | drakx-98323d762c992c42b48b589a6e44df3e5db11d99.tar drakx-98323d762c992c42b48b589a6e44df3e5db11d99.tar.gz drakx-98323d762c992c42b48b589a6e44df3e5db11d99.tar.bz2 drakx-98323d762c992c42b48b589a6e44df3e5db11d99.tar.xz drakx-98323d762c992c42b48b589a6e44df3e5db11d99.zip |
corrected password file substitution
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/network/tools.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm index 2129313c2..60f57e225 100644 --- a/perl-install/network/tools.pm +++ b/perl-install/network/tools.pm @@ -21,7 +21,7 @@ sub write_cnx_script { sub write_secret_backend { my ($a, $b) = @_; foreach my $i ("pap-secrets", "chap-secrets") { - substInFile { s/^$a.*\n//; $_ .= "\n'$a' * '$b' * \n" if eof } "$prefix/etc/ppp/$i"; + substInFile { s/^'$a'.*\n//; $_ .= "\n'$a' * '$b' * \n" if eof } "$prefix/etc/ppp/$i"; } } |