pppsetup.cgi: Fix typos.

Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>
Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>

diff --git a/html/cgi-bin/pppsetup.cgi b/html/cgi-bin/pppsetup.cgi
index 519a062bc555344a3b0a400038b6b2f4ed501373..beb7fabc7d296f8e1903e7786aa8397f0135c983 100644 (file)
--- a/html/cgi-bin/pppsetup.cgi
+++ b/html/cgi-bin/pppsetup.cgi
@@ -180,8 +180,8 @@ elsif ($pppsettings{'ACTION'} eq $Lang::tr{'save'})
                 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) ) {
@@ -529,7 +529,7 @@ END
 
 # 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);