diff options
| author | Antoine Ginies <aginies@mandriva.com> | 2005-07-05 05:16:45 +0000 |
|---|---|---|
| committer | Antoine Ginies <aginies@mandriva.com> | 2005-07-05 05:16:45 +0000 |
| commit | 4c3495611f7e3a647e9ca0657db9061b95dfe4d7 (patch) | |
| tree | eef7a1b13998623401332ca73e03d37cf60576b6 /perl-install | |
| parent | 5383748a62707cec944c5c09c214ebdab28cacd7 (diff) | |
| download | drakx-backup-do-not-use-4c3495611f7e3a647e9ca0657db9061b95dfe4d7.tar drakx-backup-do-not-use-4c3495611f7e3a647e9ca0657db9061b95dfe4d7.tar.gz drakx-backup-do-not-use-4c3495611f7e3a647e9ca0657db9061b95dfe4d7.tar.bz2 drakx-backup-do-not-use-4c3495611f7e3a647e9ca0657db9061b95dfe4d7.tar.xz drakx-backup-do-not-use-4c3495611f7e3a647e9ca0657db9061b95dfe4d7.zip | |
fix some comment
Diffstat (limited to 'perl-install')
| -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"); } |