diff options
| -rw-r--r-- | pod/perlfunc.pod | 7 | ||||
| -rw-r--r-- | pp_hot.c | 2 | ||||
| -rw-r--r-- | sv.c | 2 | ||||
| -rw-r--r-- | thrdvar.h | 2 |
4 files changed, 7 insertions, 6 deletions
diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod index 370353bb2a..d91cb04428 100644 --- a/pod/perlfunc.pod +++ b/pod/perlfunc.pod @@ -454,9 +454,10 @@ Always use the two-argument version if the function doing the blessing might be inherited by a derived class. See L<perltoot> and L<perlobj> for more about the blessing (and blessings) of objects. -Creating objects in lowercased CLASSNAMEs should be avoided. Such -namespaces should be considered reserved for Perl pragmata and objects -that may be created to implement internal operations. +Consider always blessing objects in CLASSNAMEs that are mixed case. +Namespaces with all lowercase names are considered reserved for Perl +pragmata. Builtin types have all uppercase names, so to prevent confusion, +it is best to avoid such package names as well. See L<perlmod/"Perl Modules">. @@ -819,7 +819,7 @@ PP(pp_qr) djSP; register PMOP *pm = cPMOP; SV *rv = sv_newmortal(); - SV *sv = newSVrv(rv, "re"); + SV *sv = newSVrv(rv, "Regexp"); sv_magic(sv,(SV*)ReREFCNT_inc(pm->op_pmregexp),'r',0,0); RETURNX(PUSHs(rv)); } @@ -1569,7 +1569,7 @@ sv_2pv(register SV *sv, STRLEN *lp) if ( ((SvFLAGS(sv) & (SVs_OBJECT|SVf_OK|SVs_GMG|SVs_SMG|SVs_RMG)) == (SVs_OBJECT|SVs_RMG)) - && strEQ(s=HvNAME(SvSTASH(sv)), "re") + && strEQ(s=HvNAME(SvSTASH(sv)), "Regexp") && (mg = mg_find(sv, 'r'))) { dTHR; regexp *re = (regexp *)mg->mg_obj; @@ -167,7 +167,7 @@ PERLVARI(Tregcompp, regcomp_t, FUNC_NAME_TO_PTR(pregcomp)) /* Pointer to RE compiler */ PERLVARI(Tregexecp, regexec_t, FUNC_NAME_TO_PTR(regexec_flags)) /* Pointer to RE executer */ -PERLVARI(Treginterp_cnt,int, 0) /* Whether `re' +PERLVARI(Treginterp_cnt,int, 0) /* Whether `Regexp' was interpolated. */ PERLVARI(Treg_starttry, char *, 0) /* -Dr: where regtry was called. */ #ifdef DEBUGGING |