File 0169-Fix-typos-in-scripts.patch of Package erlang

From b8dfe122c354e38acdac831ad25f2021521daa74 Mon Sep 17 00:00:00 2001
From: Kian-Meng Ang <kianmeng@cpan.org>
Date: Sun, 9 Jan 2022 21:36:20 +0800
Subject: [PATCH] Fix typos in scripts

---
 scripts/build-otp-tar   |  2 +-
 scripts/check_doc_since |  4 ++--
 scripts/diffable        |  2 +-
 scripts/otp_html_check  | 10 +++++-----
 4 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/scripts/build-otp-tar b/scripts/build-otp-tar
index cc5310f468..fc8344c76a 100755
--- a/scripts/build-otp-tar
+++ b/scripts/build-otp-tar
@@ -422,7 +422,7 @@ fi
 
 if [ "x$build_dir" != "x" ]; then
 
-    progress "Using already built OTP distibution in: $build_dir"
+    progress "Using already built OTP distribution in: $build_dir"
 
 else
 
diff --git a/scripts/check_doc_since b/scripts/check_doc_since
index ed13bb8e93..ccdadcec6b 100755
--- a/scripts/check_doc_since
+++ b/scripts/check_doc_since
@@ -608,7 +608,7 @@ sub read_xml_functions {
 sub read_edoc_functions {
     my($tag, $module) = @_;
     
-    open(FILE, $filename) or die "Cant open erl file \"$filename\"\n";
+    open(FILE, $filename) or die "Can't open erl file \"$filename\"\n";
     local $/ = undef;
     my $lines = <FILE>;
     close(FILE);
@@ -812,7 +812,7 @@ sub seen_it {
 }
  
  
-# Trim leading and traling whitespace
+# Trim leading and trailing whitespace
 sub trim {
     my $s = shift;
     $s =~ s/^\s+|\s+$//g;
diff --git a/scripts/diffable b/scripts/diffable
index ce192b375b..fa3f79454f 100755
--- a/scripts/diffable
+++ b/scripts/diffable
@@ -86,7 +86,7 @@ opts(["--deterministic"|Args], #{copts:=Copts}=Opts) ->
 opts(["--co",Opt|Args], #{copts:=Copts}=Opts) ->
     opts(Args, Opts#{copts:=Copts++[list_to_atom(Opt)]});
 opts(["--"++Opt|_], _Opts) ->
-    io:format("Uknown option: --~ts\n\n", [Opt]),
+    io:format("Unknown option: --~ts\n\n", [Opt]),
     usage();
 opts(Args, Opts) ->
     {Args,Opts}.
diff --git a/scripts/otp_html_check b/scripts/otp_html_check
index 3606ed22d4..2b1044ef91 100755
--- a/scripts/otp_html_check
+++ b/scripts/otp_html_check
@@ -16,7 +16,7 @@ undef $/;			# No record separator reading files
 ###########################################################################
 #
 #  When we talk about "a page" we mean the actual page/file
-#  When we talk about "a link" we mean a referense to a page/file.
+#  When we talk about "a link" we mean a reference to a page/file.
 #  All links/URL's start with an slash except the top link that is
 #  the empty string.
 #
@@ -88,7 +88,7 @@ push(@links,["","/doc/index.html"]) unless @links;
 ###########################################################################
 #
 #  Traverse all files and directories and put all possible URL's into
-#  the set %pages. When we later find a referense to a page that URL
+#  the set %pages. When we later find a reference to a page that URL
 #  is removed from the set. When we have followed all links the set
 #  contains the pages never visited.
 #
@@ -205,7 +205,7 @@ sub get_page_links {
   # FIXME: Now we have the raw links, if we want to complain about
   # spaces etc this is the time.
 
-  # Remove referenses to the same page  FIXME??? Was removed , why...
+  # Remove references to the same page  FIXME??? Was removed , why...
 #  @links = grep {$_ and $_ !~ /^\#/} @links;
 
   # Find the URL to the current directory
@@ -284,7 +284,7 @@ sub normalize_link {
 	# The empty link is a reference to URL directory
 	return $rpath;
     } elsif ($link =~ /^#(.*)$/s) {
-	# Lokal reference to anchor
+	# Local reference to anchor
         my $anchor = $1;
         $anchor =~ s/%([\da-fA-F]{2})/chr(hex($1))/eg; # Translate hex to char
         $anchor =~ s/&lt;/</g; # 
@@ -380,7 +380,7 @@ if (keys %missing) {
 }
 
 
-# Entrys in %pages that has the value 0 is not visited
+# Entries in %pages that has the value 0 is not visited
 if (keys %pages) {
     print "\n\n\n**** Files not used (that I can see)\n\n";
     foreach my $page (sort keys %pages) {
-- 
2.31.1