This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
I can't spell (well know fact) and while I'm there correct other
authorNicholas Clark <nick@ccl4.org>
Wed, 3 Oct 2007 20:39:37 +0000 (20:39 +0000)
committerNicholas Clark <nick@ccl4.org>
Wed, 3 Oct 2007 20:39:37 +0000 (20:39 +0000)
spelling, grammar and capitalisation imperfections.

p4raw-id: //depot/perl@32017

lib/overload.t

index 2af4c37..34b4521 100644 (file)
@@ -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.