From 08cf6d3eaa17e820af82aa286403f6b22e070e97 Mon Sep 17 00:00:00 2001
From: Christopher Chavez <chrischavez@gmx.us>
Date: Mon, 8 Feb 2021 03:04:24 -0600
Subject: [PATCH] Watch.pm: typo/spelling fixes

See eserte/perl-tk#74
---
 lib/Tcl/pTk/Tie/Watch.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Tcl/pTk/Tie/Watch.pm b/lib/Tcl/pTk/Tie/Watch.pm
index 23b049f..164f1fa 100644
--- a/lib/Tcl/pTk/Tie/Watch.pm
+++ b/lib/Tcl/pTk/Tie/Watch.pm
@@ -129,7 +129,7 @@ arrays and hashes.  When the watchpoint is created the parallel shadow
 variable is initialized with the watched variable's contents, and when
 the watchpoint is deleted the shadow variable is copied to the original
 variable.  Thus, changes made during the watch process are not lost.
-Shadowing is on my default.  If you disable shadowing any changes made
+Shadowing is on by default.  If you disable shadowing any changes made
 to an array or hash are lost when the watchpoint is deleted.
 
 Specify any of the following relevant callback parameters, in the
@@ -477,7 +477,7 @@ sub Pop       {pop @{$_[0]->{-ptr}}}
 sub Push      {push @{$_[0]->{-ptr}}, @_[1 .. $#_]}
 sub Shift     {shift @{$_[0]->{-ptr}}}
 sub Splice    {
-    my $n = scalar @_;		# splice() is wierd!
+    my $n = scalar @_;		# splice() is weird!
     return splice @{$_[0]->{-ptr}}, $_[1]                      if $n == 2;
     return splice @{$_[0]->{-ptr}}, $_[1], $_[2]               if $n == 3;
     return splice @{$_[0]->{-ptr}}, $_[1], $_[2], @_[3 .. $#_] if $n >= 4;