From 24038a33ba99e8419543d13bd8a7c2c424caf122 Mon Sep 17 00:00:00 2001 From: Antoine Ginies Date: Wed, 13 Jul 2005 01:50:58 +0000 Subject: some perl_checker fix --- common/Wizcommon.pm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'common') 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 = ) { $timer = Glib::Timeout->add(10, sub {}); -- cgit v1.2.1