summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakhosts
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/drakhosts')
-rw-r--r--perl-install/standalone/drakhosts7
1 files changed, 3 insertions, 4 deletions
diff --git a/perl-install/standalone/drakhosts b/perl-install/standalone/drakhosts
index c76762158..2cf717cca 100644
--- a/perl-install/standalone/drakhosts
+++ b/perl-install/standalone/drakhosts
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
#
# Copyright (C) 2005 by Mandriva aginies _ateuh_ mandriva.com
#
@@ -19,7 +19,7 @@
my $version = "0.1";
-# i18n: IMPORTANT: to get correct namespace (drakpxelinux instead of libDrakX)
+# i18n: IMPORTANT: to get correct namespace (drakhosts instead of libDrakX)
BEGIN { unshift @::textdomains, 'drakhosts' }
use lib qw(/usr/lib/libDrakX);
@@ -29,7 +29,6 @@ use common;
use network::network;
use interactive;
-# must come *after* definition of textdomains for proper initialisation
use ugtk2 qw(:ask :wrappers :create :dialogs);
use constant FALSE => 0;
@@ -69,7 +68,7 @@ sub get_host_data {
}
sub write_conf_hosts {
- output($HOSTS, "# generated by drakhosts.pl\n");
+ output($HOSTS, "# generated by drakhosts\n");
foreach my $a (@listhosts) {
append_to_file($HOSTS, "$a->{ip} $a->{hostname} $a->{alias}\n");
}