perldiag: Fix typo

[perl5.git] / utils / libnetcfg.PL

diff --git a/utils/libnetcfg.PL b/utils/libnetcfg.PL
index 8af4991..59a2de8 100644 (file)
--- a/utils/libnetcfg.PL
+++ b/utils/libnetcfg.PL
@@ -41,9 +41,9 @@ libnetcfg - configure libnet
 
 =head1 DESCRIPTION
 
-The libnetcfg utility can be be used to configure the libnet.
+The libnetcfg utility can be used to configure the libnet.
 Starting from perl 5.8 libnet is part of the standard Perl
-distribution, but the libnetcfg can be be used for any libnet
+distribution, but the libnetcfg can be used for any libnet
 installation.
 
 =head1 USAGE
@@ -64,7 +64,7 @@ Without arguments libnetcfg displays the current configuration.
     test_exist           1
     test_hosts           1
     time_hosts           ntp.none.such
-    # ./libnetcfg5.7.1 -h for help
+    # libnetcfg -h for help
     $ 
 
 It tells where the old configuration file was found (if found).
@@ -75,22 +75,23 @@ To change the configuration you will need to use either the C<-c> or
 the C<-d> options.
 
 The default name of the old configuration file is by default
-"libnet.cfg", unless otherwise specified using the -i option, and it
-is searched from your module path, C<-i oldfile>.
+"libnet.cfg", unless otherwise specified using the -i option,
+C<-i oldfile>, and it is searched first from the current directory,
+and then from your module path.
 
-The default name of new configuration file is "libnet.cfg", and by
+The default name of the new configuration file is "libnet.cfg", and by
 default it is written to the current directory, unless otherwise
 specified using the -o option, C<-o newfile>.
 
 =head1 SEE ALSO
 
-L<Net::Config>, L<Net::libnetFAQ>
+L<Net::Config>, L<libnetFAQ>
 
 =head1 AUTHORS
 
 Graham Barr, the original Configure script of libnet.
 
-Jarkko Hietaniemi, conversion into libnet cfg for inclusion into Perl 5.8.
+Jarkko Hietaniemi, conversion into libnetcfg for inclusion into Perl 5.8.
 
 =cut
 
@@ -217,7 +218,7 @@ sub get_hostname
    print <<"EDQ";
 
 *** ERROR:
-    Hostname `$host' does not seem to exist, please enter again
+    Hostname '$host' does not seem to exist, please enter again
     or a single space to clear any default
 
 EDQ
@@ -365,10 +366,11 @@ Without options, the old configuration is shown.
    -h show this help
 
 The default name of the old configuration file is by default
-"libnet.cfg", unless otherwise specified using the -i option, and it
-is searched from your module path.
+"libnet.cfg", unless otherwise specified using the -i option,
+C<-i oldfile>, and it is searched first from the current directory,
+and then from your module path.
 
-The default name of new configuration file is "libnet.cfg", and by
+The default name of the new configuration file is "libnet.cfg", and by
 default it is written to the current directory, unless otherwise
 specified using the -o option.
 
@@ -682,9 +684,9 @@ $cfg{'inet_domain'} = ($ans =~ /(\S+)/)[0];
 $msg = <<EDQ;
 
 If you specified some default hosts above, it is possible for me to
-do some basic tests when you run `make test'
+do some basic tests when you run 'make test'
 
-This will cause `make test' to be quite a bit slower and, if your
+This will cause 'make test' to be quite a bit slower and, if your
 internet connection is via dialup, will require you to be on-line
 unless the hosts are local.
 
@@ -712,7 +714,7 @@ print "\n";
 #---------------------------------------------------------------------------
 
 my $fh = IO::File->new($libnet_cfg_out, "w") or
-       die "Cannot create `$libnet_cfg_out': $!";
+       die "Cannot create '$libnet_cfg_out': $!";
 
 print "Writing $libnet_cfg_out\n";