qw(
"" stringify
-0+ numify) # Order of arguments unsignificant
+0+ numify) # Order of arguments insignificant
);
sub new {
}, '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;
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;
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);
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;
{
# 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.