From 98323d762c992c42b48b589a6e44df3e5db11d99 Mon Sep 17 00:00:00 2001 From: damien Date: Fri, 10 Aug 2001 20:15:30 +0000 Subject: corrected password file substitution --- perl-install/network/tools.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install') 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"; } } -- cgit v1.2.1