From de74485baf2c4901f1b53aab7073885c69cf0776 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 11 Nov 2002 13:25:04 +0000 Subject: replace qq{...} with qq(...) --- perl-install/network/adsl.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'perl-install/network') diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm index 57eb93ff7..c90913c62 100644 --- a/perl-install/network/adsl.pm +++ b/perl-install/network/adsl.pm @@ -126,7 +126,7 @@ defaultroute if ($adsl_type eq 'speedtouch') { $netc->{vpivci} =~ /(\d+)_(\d+)/; output("$prefix/etc/ppp/peers/adsl", -qq{noauth +qq(noauth noipdefault pty "/usr/bin/pppoa3 -vpi $1 -vci $2" sync @@ -141,7 +141,7 @@ persist usepeerdns defaultroute user "$adsl->{login}" -}); +)); modules::add_alias($_->[0], $_->[1]) foreach (['char-major-108', 'ppp_generic'], ['tty-ldisc-3', 'ppp_async'], ['tty-ldisc-13', 'n_hdlc'], @@ -160,7 +160,7 @@ and copy the mgmt.o in /usr/share/speedtouch")); if ($adsl_type eq 'eci') { $netc->{vpivci} =~ /(\d+)_(\d+)/; output("$prefix/etc/ppp/peers/adsl", -qq{debug +qq(debug kdebug 1 noipdefault defaultroute @@ -177,7 +177,7 @@ maxfail 10 usepeerdns noauth lcp-echo-interval 0 -}); +)); modules::add_alias($_->[0], $_->[1]) foreach (['char-major-108', 'ppp_generic'], ['tty-ldisc-14', 'ppp_synctty'], ['tty-ldisc-13', 'n_hdlc']); -- cgit v1.2.1