diff options
| -rw-r--r-- | perl-install/standalone/drakhosts | 7 |
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"); } |