diff options
-rw-r--r-- | ext/File-Glob/Glob.xs | 2 | ||||
-rw-r--r-- | gv.c | 2 | ||||
-rw-r--r-- | mro.c | 10 | ||||
-rw-r--r-- | pp.c | 2 | ||||
-rw-r--r-- | pp_ctl.c | 2 | ||||
-rw-r--r-- | sv.c | 6 |
6 files changed, 12 insertions, 12 deletions
diff --git a/ext/File-Glob/Glob.xs b/ext/File-Glob/Glob.xs index 0c03e1205e..3ea05909c6 100644 --- a/ext/File-Glob/Glob.xs +++ b/ext/File-Glob/Glob.xs @@ -382,7 +382,7 @@ PPCODE: BOOT: { #ifndef PERL_EXTERNAL_GLOB - /* Don’t do this at home! The globhook interface is highly volatile. */ + /* Don't do this at home! The globhook interface is highly volatile. */ PL_globhook = csh_glob_iter; #endif } @@ -1174,7 +1174,7 @@ Perl_gv_autoload_pvn(pTHX_ HV *stash, const char *name, STRLEN len, U32 flags) * via the SvPVX field in the CV, and the stash in CvSTASH. * * Due to an unfortunate accident of history, the SvPVX field - * serves two purposes. It is also used for the subroutine’s pro- + * serves two purposes. It is also used for the subroutine's pro- * type. Since SvPVX has been documented as returning the sub name * for a long time, but not as returning the prototype, we have * to preserve the SvPVX AUTOLOAD behaviour and put the prototype @@ -550,7 +550,7 @@ Perl_mro_isa_changed_in(pTHX_ HV* stash) /* We have to iterate through isarev twice to avoid a chicken and * egg problem: if A inherits from B and both are in isarev, A might - * be processed before B and use B’s previous linearisation. + * be processed before B and use B's previous linearisation. */ /* First iteration: Wipe everything, but stash away the isa hashes @@ -673,7 +673,7 @@ Perl_mro_isa_changed_in(pTHX_ HV* stash) stashname_utf8 ? -(I32)stashname_len : (I32)stashname_len, &PL_sv_yes, 0); } - /* Delete our name from our former parents’ isarevs. */ + /* Delete our name from our former parents' isarevs. */ if(isa && HvARRAY(isa)) mro_clean_isarev(isa, stashname, stashname_len, meta->isa, (stashname_utf8 ? SVf_UTF8 : 0) ); @@ -688,7 +688,7 @@ S_mro_clean_isarev(pTHX_ HV * const isa, const char * const name, PERL_ARGS_ASSERT_MRO_CLEAN_ISAREV; - /* Delete our name from our former parents’ isarevs. */ + /* Delete our name from our former parents' isarevs. */ if(isa && HvARRAY(isa) && hv_iterinit(isa)) { SV **svp; while((iter = hv_iternext(isa))) { @@ -959,7 +959,7 @@ S_mro_gather_and_rename(pTHX_ HV * const stashes, HV * const seen_stashes, * are not going to call mro_isa_changed_in with this * name (and not at all if it has become anonymous) so * we need to delete old isarev entries here, both - * those in the superclasses and this class’s own list + * those in the superclasses and this class's own list * of subclasses. We simply delete the latter from * PL_isarev, since we still need it. hv_delete morti- * fies it for us, so sv_2mortal is not necessary. */ @@ -994,7 +994,7 @@ S_mro_gather_and_rename(pTHX_ HV * const stashes, HV * const seen_stashes, /* Add it to the big list if it needs * mro_isa_changed_in called on it. That happens if it was * detached from the symbol table (so it had no HvENAME) before - * being assigned to the spot named by the ‘name’ variable, because + * being assigned to the spot named by the `name' variable, because * its cached isa linearisation is now stale (the effective name * having changed), and subclasses will then use that cache when * mro_package_moved calls mro_isa_changed_in. (See @@ -5688,7 +5688,7 @@ PP(pp_coreargs) /* Reset the stack pointer. Without this, we end up returning our own arguments in list context, in addition to the values we are supposed to return. nextstate usually does this on sub entry, but we need - to run the next op with the caller’s hints, so we cannot have a + to run the next op with the caller's hints, so we cannot have a nextstate. */ SP = PL_stack_base + cxstack[cxstack_ix].blk_oldsp; @@ -4154,7 +4154,7 @@ PP(pp_entereval) SvPVbyte_force(sv, len); } else if (bytes && SvUTF8(sv)) { - /* Don’t modify someone else’s scalar */ + /* Don't modify someone else's scalar */ STRLEN len; sv = newSVsv(sv); (void)sv_2mortal(sv); @@ -3681,7 +3681,7 @@ S_glob_assign_glob(pTHX_ SV *const dstr, SV *const sstr, const int dtype) mro_changes = 1; } - /* We don’t need to check the name of the destination if it was not a + /* We don't need to check the name of the destination if it was not a glob to begin with. */ if(dtype == SVt_PVGV) { const char * const name = GvNAME((const GV *)dstr); @@ -3917,7 +3917,7 @@ S_glob_assign_ref(pTHX_ SV *const dstr, SV *const sstr) mg = mg_find(sref, PERL_MAGIC_isa); } /* Since the *ISA assignment could have affected more than - one stash, don’t call mro_isa_changed_in directly, but let + one stash, don't call mro_isa_changed_in directly, but let magic_clearisa do it for us, as it already has the logic for dealing with globs vs arrays of globs. */ assert(mg); @@ -9447,7 +9447,7 @@ Perl_sv_bless(pTHX_ SV *const sv, HV *const stash) return sv; } -/* Downgrades a PVGV to a PVMG. If it’s actually a PVLV, we leave the type +/* Downgrades a PVGV to a PVMG. If it's actually a PVLV, we leave the type * as it is after unglobbing it. */ |