From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 3 Oct 2007 20:39:37 +0000 (+0000)
Subject: I can't spell (well know fact) and while I'm there correct other
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b0bf6df7dc9aca27060dd29d1bc1b84c28baf529;p=p5sagit%2Fp5-mst-13.2.git

I can't spell (well know fact) and while I'm there correct other
spelling, grammar and capitalisation imperfections.

p4raw-id: //depot/perl@32017
---

diff --git a/lib/overload.t b/lib/overload.t
index 2af4c37..34b4521 100644
--- a/lib/overload.t
+++ b/lib/overload.t
@@ -31,7 +31,7 @@ use overload (
 
 qw(
 ""	stringify
-0+	numify)			# Order of arguments unsignificant
+0+	numify)			# Order of arguments insignificant
 );
 
 sub new {
@@ -744,10 +744,10 @@ else {
 		    }, 'deref';
   # Hash:
   my @cont = sort %$deref;
-  if ("\t" eq "\011") { # ascii
+  if ("\t" eq "\011") { # ASCII
       is("@cont", '23 5 fake foo');
   } 
-  else {                # ebcdic alpha-numeric sort order
+  else {                # EBCDIC alpha-numeric sort order
       is("@cont", 'fake foo 23 5');
   }
   my @keys = sort keys %$deref;
@@ -986,7 +986,7 @@ unless ($aaa) {
   main::is("$int_x", 1054);
 }
 
-# make sure that we don't inifinitely recurse
+# make sure that we don't infinitely recurse
 {
   my $c = 0;
   package Recurse;
@@ -1131,7 +1131,7 @@ like ($@, qr/zap/);
     like(overload::StrVal($no),       qr/^no_overload=ARRAY\(0x[0-9a-f]+\)$/);
 }
 
-# These are all check that overloaded values rather than reference addressess
+# These are all check that overloaded values rather than reference addresses
 # are what is getting tested.
 my ($two, $one, $un, $deux) = map {new Numify $_} 2, 1, 1, 2;
 my ($ein, $zwei) = (1, 2);
@@ -1212,7 +1212,7 @@ foreach my $op (qw(<=> == != < <= > >=)) {
     my $obj;
     $obj = bless {name => 'cool'}, 'Sklorsh';
     $obj->delete;
-    ok(eval {if ($obj) {1}; 1}, $@ || 'reblessed into nonexist namespace');
+    ok(eval {if ($obj) {1}; 1}, $@ || 'reblessed into nonexistent namespace');
 
     $obj = bless {name => 'cool'}, 'Sklorsh';
     $obj->delete_with_self;
@@ -1336,9 +1336,9 @@ foreach my $op (qw(<=> == != < <= > >=)) {
 
 {
     # Subtle bug pre 5.10, as a side effect of the overloading flag being
-    # stored on the reference rather than the referant. Despite the fact that
+    # stored on the reference rather than the referent. Despite the fact that
     # objects can only be accessed via references (even internally), the
-    # referant actually knows that it's blessed, not the references. So taking
+    # referent actually knows that it's blessed, not the references. So taking
     # a new, unrelated, reference to it gives an object. However, the
     # overloading-or-not flag was on the reference prior to 5.10, and taking
     # a new reference didn't (use to) copy it.