summaryrefslogtreecommitdiff
path: root/lib/overload.t
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2007-10-03 20:39:37 +0000
committerNicholas Clark <nick@ccl4.org>2007-10-03 20:39:37 +0000
commitb0bf6df7dc9aca27060dd29d1bc1b84c28baf529 (patch)
tree058d6c72ed4149903b0e72f1d08b14d1c29710b5 /lib/overload.t
parent2c615c57764e17cd374cd39caf4823ee12d15cbe (diff)
downloadperl-b0bf6df7dc9aca27060dd29d1bc1b84c28baf529.tar.gz
I can't spell (well know fact) and while I'm there correct other
spelling, grammar and capitalisation imperfections. p4raw-id: //depot/perl@32017
Diffstat (limited to 'lib/overload.t')
-rw-r--r--lib/overload.t16
1 files changed, 8 insertions, 8 deletions
diff --git a/lib/overload.t b/lib/overload.t
index 2af4c37ebf..34b4521db5 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.