From 4c3495611f7e3a647e9ca0657db9061b95dfe4d7 Mon Sep 17 00:00:00 2001
From: Antoine Ginies <aginies@mandriva.com>
Date: Tue, 5 Jul 2005 05:16:45 +0000
Subject: fix some comment

---
 perl-install/standalone/drakhosts | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'perl-install/standalone')

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");
   }
-- 
cgit v1.2.1