English proofreading by Stew Benedicts

4 files changed, 7 insertions, 7 deletions

diff --git a/perl-install/network/drakfirewall.pm b/perl-install/network/drakfirewall.pm
index 084a656fd..ad2c6205e 100644
--- a/perl-install/network/drakfirewall.pm
+++ b/perl-install/network/drakfirewall.pm
@@ -128,7 +128,7 @@ sub get_conf {
 	$in->ask_okcancel('', N("drakfirewall configurator
 
 This configures a personal firewall for this Mandrake Linux machine.
-For a powerful dedicated firewall solution, please look to the
+For a powerful and dedicated firewall solution, please look to the
 specialized MandrakeSecurity Firewall distribution."), 1) or return;
 
 	$in->ask_okcancel('', N("drakfirewall configurator
diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm
index 22bb7b9ec..ca468125d 100644
--- a/perl-install/network/ethernet.pm
+++ b/perl-install/network/ethernet.pm
@@ -29,7 +29,7 @@ sub configure_cable {
 	      );
 	if (my $f = $in->ask_from_listf(N("Connect to the Internet"),
 					N("Which dhcp client do you want to use?
-Default is dhcp-client"),
+Default is dhcp-client."),
 					sub { $_[0]{description} },
 					\@m)) {
 	    $f->{c} == 3 and $netcnx->{dhcp_client} = "dhcpcd" and $in->do_pkgs->install(qw(dhcpcd));
@@ -84,7 +84,7 @@ I cannot set up this connection type.")) and return;
     @all_cards == 1 and $interface = $all_cards[0][0];
     while (!$interface) {
 	$interface = $in->ask_from_list(N("Choose the network interface"),
-					N("Please choose which network adapter you want to use to connect to Internet"),
+					N("Please choose which network adapter you want to use to connect to Internet."),
 					[ map { $_->[0] . ($_->[1] ? " (using module $_->[1])" : "") } @all_cards ]
 				       ) or return;
     }
diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm
index 2577fa46b..43b7bf32c 100644
--- a/perl-install/network/isdn.pm
+++ b/perl-install/network/isdn.pm
@@ -234,7 +234,7 @@ sub isdn_ask_info {
 
 sub isdn_ask_protocol {
     my @toto = (
-	      { description => $::expert ? N("Europe protocol (EDSS1)") : N("Europe protocol"),
+	      { description => $::expert ? N("European protocol (EDSS1)") : N("Europe protocol"),
 		protokol => 2 },
 	      { description => $::expert ? N("Protocol for the rest of the world\nNo D-Channel (leased lines)") : N("Protocol for the rest of the world"),
 		protokol => 3 }
@@ -275,7 +275,7 @@ If you have a PCMCIA card, you have to know the \"irq\" and \"io\" of your card.
 
   isdn_ask_step_2:
     $e = $in->ask_from_listf(N("ISDN Configuration"),
-			     N("Which is your ISDN card?"),
+			     N("Which of the following is your ISDN card?"),
 			     sub { $_[0]{description} },
 			     [ grep { $_->{card} eq $isdn->{card_type} } @isdndata ]) or goto isdn_ask_step_1;
     $e->{$_} and $isdn->{$_} = $e->{$_} foreach qw(driver type mem io io0 io1 irq firmware);
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index b02c5b05e..328c9437b 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -25,10 +25,10 @@ sub intro {
     read_net_conf($prefix, $netcnx, $netc);
     if (!$::isWizard) {
 	if (connected()) {
-	    $text = N("You are currently connected to internet.") . (-e $disconnect_file ? N("\nYou can disconnect or reconfigure your connection.") : N("\nYou can reconfigure your connection."));
+	    $text = N("You are currently connected to the Internet.") . (-e $disconnect_file ? N("\nYou can disconnect or reconfigure your connection.") : N("\nYou can reconfigure your connection."));
 	    $connected = 1;
 	} else {
-	    $text = N("You are not currently connected to Internet.") . (-e $connect_file ? N("\nYou can connect to Internet or reconfigure your connection.") : N("\nYou can reconfigure your connection."));
+	    $text = N("You are not currently connected to the Internet.") . (-e $connect_file ? N("\nYou can connect to the Internet or reconfigure your connection.") : N("\nYou can reconfigure your connection."));
 	    $connected = 0;
 	}
 	my @l = (