perl_checker cleanups

1 files changed, 6 insertions, 6 deletions

diff --git a/client_wizard/Bind_client.pm b/client_wizard/Bind_client.pm
index 396260e2..fc3ddc2a 100755
--- a/client_wizard/Bind_client.pm
+++ b/client_wizard/Bind_client.pm
@@ -44,9 +44,9 @@ my $o = {
     defaultimage => "$ENV{__WIZ_HOME__}client_wizard/images/DNS.png",
     init => sub {
 	if (! -f "/var/named/$wiz_domain_name.db") {
-	    return (0, N("You must first run the DNS server wizard"))
+	    return (0, N("You must first run the DNS server wizard"));
 	}
-	1
+	1;
     }
     };
 
@@ -163,7 +163,7 @@ sub do_it {
     my $file="/var/named/$wiz_domain_name.db";
     my $client_name = $o->{var}{client_name};
     $client_name =~ s/\.$wiz_domain_name$//;
-    MDK::Common::cp_af($file, $file.".orig");
+    MDK::Common::cp_af($file, $file . ".orig");
     local *NEW;
     open(NEW, ">> $file") or die "can not open $file";
     print NEW "\n$client_name	IN A $o->{var}{client_ip} ; $date\n\n";
@@ -171,15 +171,15 @@ sub do_it {
     up_serial($file);
 
     $file="/var/named/$s_trunc.rev";
-    MDK::Common::cp_af($file, $file.".orig");
+    MDK::Common::cp_af($file, $file . ".orig");
     open(NEW, ">> $file") or die "can not open $file";
     print NEW "\n$dc IN PTR $o->{var}{client_name}. ; $date\n\n";
     close(NEW)	or die "can not close $file";
     up_serial($file);
     if (services::is_service_running('named')) {
-	services::restart('named') 
+	services::restart('named');
     } else {
-        services::start('named')
+        services::start('named');
     }
 }