some perl_checker fix

1 files changed, 5 insertions, 4 deletions

diff --git a/common/Wizcommon.pm b/common/Wizcommon.pm
index 4cf9eadf..56c1b36d 100644
--- a/common/Wizcommon.pm
+++ b/common/Wizcommon.pm
@@ -47,17 +47,17 @@ sub check_started {
   my ($service) = @_;
   my ($isrunning) = chomp_(`pidof $service`) =~ /(\d+)/m;
   if (!$isrunning) {
-    return 'error_end'
+    return 'error_end';
   }
 }
 
 sub test_host_domain {
   my ($SHORTHOSTNAME, $DOMAINNAME) = @_;
   if ($SHORTHOSTNAME =~ /localhost/) {
-    return 0, N("You need to readjust your hostname. 'localhost' is not a correct hostname for a DNS server. Hostname must be a FQDN: Fully Qualified Domain Name")
+    return 0, N("You need to readjust your hostname. 'localhost' is not a correct hostname for a DNS server. Hostname must be a FQDN: Fully Qualified Domain Name");
   }
   if (member($DOMAINNAME, qw(localdomain (none))) && -z $DOMAINNAME) {
-    return 0, N("You need to readjust your domainname. For a DNS server you need a correct domainname, not equal to localdomain or none. Hostname must be a FQDN: Fully Qualified Domain Name. Launch drakconnect to adjust it.")
+    return 0, N("You need to readjust your domainname. For a DNS server you need a correct domainname, not equal to localdomain or none. Hostname must be a FQDN: Fully Qualified Domain Name. Launch drakconnect to adjust it.");
   }
   return 1;
 }
@@ -74,7 +74,7 @@ sub wizard_progress_bar {
 	   gtkpack(Gtk2::VBox->new(0,0),
 		   gtkpack_(Gtk2::VBox->new(0, 3),
 			    0, my $text = Gtk2::Label->new($descr),
-			    0, my $text2 = Gtk2::Label->new(),
+			    0, my $text2 = Gtk2::Label->new,
 			    0, Gtk2::HSeparator->new,
 			    0, my $pbar = Gtk2::ProgressBar->new,
 			   ),
@@ -83,6 +83,7 @@ sub wizard_progress_bar {
     $window1->realize;
     $pbar->set_pulse_step(0.1);
 
+    file *TMP;
     open(TMP, "$command 2>&1 |");
     while ($value = <TMP>) {
       $timer = Glib::Timeout->add(10, sub {});