From 6b99646644baee856b0f8bc2600186bc0038ae22 Mon Sep 17 00:00:00 2001
From: Sebastiano Pistore <SebastianoPistore.info@protonmail.ch>
Date: Mon, 10 Jun 2019 11:31:07 +0200
Subject: Fixed small English syntax errors. The executable code has NOT been
 modified.

---
 check_trans.pl | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'check_trans.pl')

diff --git a/check_trans.pl b/check_trans.pl
index 466d592d7d0..7b513b83a60 100755
--- a/check_trans.pl
+++ b/check_trans.pl
@@ -78,7 +78,7 @@
 #   USAGE:
 #    If you give the "-g" option, all mails are written to the console.  No
 #    mails are sent out at all.  This is useful for debugging.
-#    If you specify an email addres with the "-M" options, all mails are sent
+#    If you specify an email address with the "-M" options, all mails are sent
 #    to the specified addressee.  No mails are sent to any other addresses.  It
 #    is useful if you want to run it for yourself.
 #    Without either of these options, real mails will be sent to real
@@ -423,7 +423,7 @@ die("Never reached");
 
 
 #=================================================
-#== swich two variables around
+#== switch two variables around
 #==
 sub switch_var(\$\$)
 {
@@ -479,7 +479,7 @@ sub send_email
 		my $subject;
 		my $mailbody;
 
-		# First handle the case in whcih all mail goes to the -M address
+		# First handle the case in which all mail goes to the -M address
 		if ( $default_rec )
 		{
 			# address was already validated while parsing the command line
@@ -487,7 +487,7 @@ sub send_email
 			$subject   = $DEFAULT_SUBJECT;
 			$mailbody  = $DEFAULT_BODY;
 		}
-		else # handle the case in whcih addresses are fetch from the db
+		else # handle the case in which addresses are fetch from the db
 		{
 			# skip unconfigured users
 			if ( not exists $translators->{$name}
@@ -497,7 +497,7 @@ sub send_email
 				next;
 			}
 
-			# check the user's email addres
+			# check the user's email address
 			if ( not Email::Address->parse( $translators->{$name}{'email'} ) )
 			{
 				printf STDERR "Can't parse email address `%s' for %s!\n",
@@ -520,7 +520,7 @@ sub send_email
 			$mailbody = read_file_enc( $translators->{'default'}{'mailbody'} )
 				or die("Can't read $translators->{'default'}{'mailbody'}");
 			{
-				# a bit hackish, but I want to keep the curent format of
+				# a bit hackish, but I want to keep the current format of
 				# the mail body files intact, for now
 				# so we need to use the same old variable names as the original
 				# script used
@@ -818,7 +818,7 @@ sub get_diff_txt
 
 	# Get translation file
 	my $transl_txt = read_file( $transl_file )
-		or die("Couln't read `$transl_file': $!");
+		or die("Couldn't read `$transl_file': $!");
 	my @transl_txt = split( "\n", $transl_txt );
 
 	# Get diff lines
@@ -956,7 +956,7 @@ sub parse_cmdargs
 		else
 		{
 			die "You specified -m (send mails), but you didn't specify "
-			   ."either -n or -M, so I don't knwo where to send my mails\n";
+			   ."either -n or -M, so I don't know where to send my mails\n";
 		}
 
 	}
-- 
cgit v1.2.3