Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>
Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>
goto ERROR; }
# Read-in ddns config file, to check if at least one provider is enabled.
goto ERROR; }
# Read-in ddns config file, to check if at least one provider is enabled.
- open(FILE, "${General::swroot}/ddns/config)";
- my @ddns_config = <FILE>
+ open(FILE, "${General::swroot}/ddns/config");
+ my @ddns_config = <FILE>;
close(FILE);
if( $pppsettings{'RECONNECTION'} eq 'dialondemand' && grep(/on/, @ddns_config) ) {
close(FILE);
if( $pppsettings{'RECONNECTION'} eq 'dialondemand' && grep(/on/, @ddns_config) ) {
# Read-in atm devices from proc.
open(PROC, "/proc/net/atm/devices");
# Read-in atm devices from proc.
open(PROC, "/proc/net/atm/devices");
-my @patm_devices = <PROC>;
+my @atm_devices = <PROC>;
close(PROC);
my $atmdev = grep(/0/, @atm_devices);
close(PROC);
my $atmdev = grep(/0/, @atm_devices);