From aaff6dff3ac0e9b19810fc1bc836f30c19918e5d Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 31 Jul 2002 11:59:03 +0000 Subject: make new perl_checker happy --- perl-install/network/adsl.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/network/adsl.pm') diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm index d27292cf4..8df96aa00 100644 --- a/perl-install/network/adsl.pm +++ b/perl-install/network/adsl.pm @@ -71,7 +71,7 @@ sub adsl_detect { return 0; my ($interface) = @_; run_program::rooted($prefix, "ifconfig $interface 10.0.0.10 netmask 255.255.255.0"); - my $ret=run_program::rooted($prefix, "/bin/ping -c 1 10.0.0.138 2> /dev/null"); + my $ret = run_program::rooted($prefix, "/bin/ping -c 1 10.0.0.138 2> /dev/null"); run_program::rooted($prefix, "ifconfig $interface 0.0.0.0 netmask 255.255.255.0"); run_program::rooted($prefix, "/etc/init.d/network restart"); $ret; -- cgit v1.2.1