[perl #90054] Fix typo in universal.c

At XS(XS_UNIVERSAL_DOES), invocant is spelled wrong.

diff --git a/universal.c b/universal.c
index 07bbe96..145d860 100644 (file)
--- a/universal.c
+++ b/universal.c
@@ -290,7 +290,7 @@ XS(XS_UNIVERSAL_DOES)
     PERL_UNUSED_ARG(cv);
 
     if (items != 2)
-       Perl_croak(aTHX_ "Usage: invocand->DOES(kind)");
+       Perl_croak(aTHX_ "Usage: invocant->DOES(kind)");
     else {
        SV * const sv = ST(0);
        const char *name;