summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAntoine Ginies <aginies@mandriva.com>2005-07-13 01:50:58 +0000
committerAntoine Ginies <aginies@mandriva.com>2005-07-13 01:50:58 +0000
commit24038a33ba99e8419543d13bd8a7c2c424caf122 (patch)
tree241e91ea892b00b146089185a9ba502fe5e388e3
parentd68dfd7deceba0238e5ffdd737925560f48d2259 (diff)
downloaddrakwizard-24038a33ba99e8419543d13bd8a7c2c424caf122.tar
drakwizard-24038a33ba99e8419543d13bd8a7c2c424caf122.tar.gz
drakwizard-24038a33ba99e8419543d13bd8a7c2c424caf122.tar.bz2
drakwizard-24038a33ba99e8419543d13bd8a7c2c424caf122.tar.xz
drakwizard-24038a33ba99e8419543d13bd8a7c2c424caf122.zip
some perl_checker fix
-rw-r--r--common/Wizcommon.pm9
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 {});