mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 08:38:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix spelling of 'unrecognised' to en_US version

Browse Source
This commit is contained in:
Paul "LeoNerd" Evans 2025-12-05 18:12:54 +00:00 committed by Paul Evans
parent 5863d27390
commit cb60726ec8
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
class.c
View File

@ -238,7 +238,7 @@ XS(injected_constructor)
while((he = hv_iternext(params)))
sv_catpvf(paramnames, ", %" SVf, SVfARG(HeSVKEY_force(he)));
croak("Unrecognised parameters for %" HvNAMEf_QUOTEDPREFIX " constructor: %" SVf,
croak("Unrecognized parameters for %" HvNAMEf_QUOTEDPREFIX " constructor: %" SVf,
HvNAMEfARG(stash), SVfARG(paramnames));
}

2
pod/perldiag.pod
View File

@ -7544,7 +7544,7 @@ The message attempts to include the name of the called subroutine. If
the subroutine has been aliased, the subroutine's original name will be
shown, regardless of what name the caller used.
=item Unrecognised parameters for "%s" constructor: %s
=item Unrecognized parameters for "%s" constructor: %s
(F) You called new on a class but supplied a parameter name that
didn't match a class field name.

6
t/class/construct.t
View File

@ -33,9 +33,9 @@ use builtin qw( blessed reftype );
is($obj+0, builtin::refaddr($obj), 'numified object');
like("$obj", qr/^Testcase1=OBJECT\(0x[[:xdigit:]]+\)$/, 'stringified object' );
ok(!eval { Testcase1->new(x => 123, y => 456); 1 }, 'Unrecognised parameter fails');
like($@, qr/^Unrecognised parameters for "Testcase1" constructor: y at /,
'Exception thrown by constructor for unrecogniser parameter');
ok(!eval { Testcase1->new(x => 123, y => 456); 1 }, 'Unrecognized parameter fails');
like($@, qr/^Unrecognized parameters for "Testcase1" constructor: y at /,
'Exception thrown by constructor for unrecognized parameter');
}
{