diff options
author | David Mitchell <davem@iabyn.com> | 2017-01-07 14:12:05 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2017-01-07 14:30:45 +0000 |
commit | 7fd883b13f86fa5bca1523192141b690bdd8cde6 (patch) | |
tree | d145a6200620a584619f56b582c395bbe955cf01 /universal.c | |
parent | d4914d8c1ae391758a02494120b9d3ed874ef93d (diff) | |
download | perl-7fd883b13f86fa5bca1523192141b690bdd8cde6.tar.gz |
fix some comment typos about PL_isa_DOES
... and expand one of the comments a bit.
Diffstat (limited to 'universal.c')
-rw-r--r-- | universal.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/universal.c b/universal.c index 95934ca694..88835f9d78 100644 --- a/universal.c +++ b/universal.c @@ -184,8 +184,9 @@ The SV can be a Perl object or the name of a Perl class. #include "XSUB.h" -/* a special string address whose value is "isa", but whicb perl knows - * to treat as if it were really "DOES" */ +/* a special string address whose value is "isa", but which perl knows + * to treat as if it were really "DOES" when printing the method name in + * the "Can't call method '%s'" error message */ char PL_isa_DOES[] = "isa"; bool @@ -227,7 +228,7 @@ Perl_sv_does_sv(pTHX_ SV *sv, SV *namesv, U32 flags) PUTBACK; /* create a PV with value "isa", but with a special address - * so that perl knows were' realling doing "DOES" instead */ + * so that perl knows we're really doing "DOES" instead */ methodname = newSV_type(SVt_PV); SvLEN(methodname) = 0; SvCUR(methodname) = strlen(PL_isa_DOES); |