- * http://public.activestate.com/cgi-bin/perlbrowse?patch=3386
- * http://public.activestate.com/cgi-bin/perlbrowse?patch=5162
+ * http://perl5.git.perl.org/perl.git/commit/312caa8e97f1c7ee342a9895c2f0e749625b4929
+ * http://perl5.git.perl.org/perl.git/commit/14dd3ad8c9bf82cf09798a22cc89a9862dfd6d1a
+ *
Look up the entry in the cop hints hash I<cophh> with the key specified by
I<keypv> and I<keylen>. If I<flags> has the C<COPHH_KEY_UTF8> bit set,
Look up the entry in the cop hints hash I<cophh> with the key specified by
I<keypv> and I<keylen>. If I<flags> has the C<COPHH_KEY_UTF8> bit set,
Perl_refcounted_he_fetch_pvn(aTHX_ cophh, keypv, keylen, hash, flags)
/*
Perl_refcounted_he_fetch_pvn(aTHX_ cophh, keypv, keylen, hash, flags)
/*
Like L</cophh_fetch_pvn>, but takes a literal string instead of a
string/length pair, and no precomputed hash.
Like L</cophh_fetch_pvn>, but takes a literal string instead of a
string/length pair, and no precomputed hash.
Perl_refcounted_he_fetch_pvn(aTHX_ cophh, STR_WITH_LEN(key), 0, flags)
/*
Perl_refcounted_he_fetch_pvn(aTHX_ cophh, STR_WITH_LEN(key), 0, flags)
/*
Perl_refcounted_he_fetch_pv(aTHX_ cophh, key, hash, flags)
/*
Perl_refcounted_he_fetch_pv(aTHX_ cophh, key, hash, flags)
/*
Perl_refcounted_he_fetch_sv(aTHX_ cophh, key, hash, flags)
/*
Perl_refcounted_he_fetch_sv(aTHX_ cophh, key, hash, flags)
/*
Generates and returns a standard Perl hash representing the full set of
key/value pairs in the cop hints hash I<cophh>. I<flags> is currently
Generates and returns a standard Perl hash representing the full set of
key/value pairs in the cop hints hash I<cophh>. I<flags> is currently
Stores a value, associated with a key, in the cop hints hash I<cophh>,
and returns the modified hash. The returned hash pointer is in general
Stores a value, associated with a key, in the cop hints hash I<cophh>,
and returns the modified hash. The returned hash pointer is in general
Perl_refcounted_he_new_pvn(aTHX_ cophh, keypv, keylen, hash, value, flags)
/*
Perl_refcounted_he_new_pvn(aTHX_ cophh, keypv, keylen, hash, value, flags)
/*
Like L</cophh_store_pvn>, but takes a literal string instead of a
string/length pair, and no precomputed hash.
Like L</cophh_store_pvn>, but takes a literal string instead of a
string/length pair, and no precomputed hash.
Perl_refcounted_he_new_pvn(aTHX_ cophh, STR_WITH_LEN(key), 0, value, flags)
/*
Perl_refcounted_he_new_pvn(aTHX_ cophh, STR_WITH_LEN(key), 0, value, flags)
/*
Perl_refcounted_he_new_pv(aTHX_ cophh, key, hash, value, flags)
/*
Perl_refcounted_he_new_pv(aTHX_ cophh, key, hash, value, flags)
/*
Perl_refcounted_he_new_sv(aTHX_ cophh, key, hash, value, flags)
/*
Perl_refcounted_he_new_sv(aTHX_ cophh, key, hash, value, flags)
/*
Delete a key and its associated value from the cop hints hash I<cophh>,
and returns the modified hash. The returned hash pointer is in general
Delete a key and its associated value from the cop hints hash I<cophh>,
and returns the modified hash. The returned hash pointer is in general
Like L</cophh_delete_pvn>, but takes a literal string instead of a
string/length pair, and no precomputed hash.
Like L</cophh_delete_pvn>, but takes a literal string instead of a
string/length pair, and no precomputed hash.
Perl_refcounted_he_new_pv(aTHX_ cophh, key, hash, (SV *)NULL, flags)
/*
Perl_refcounted_he_new_pv(aTHX_ cophh, key, hash, (SV *)NULL, flags)
/*
/* If $[ is non-zero, it's stored in cop_hints under the key "$[", and
HINT_ARYBASE is set to indicate this.
/* If $[ is non-zero, it's stored in cop_hints under the key "$[", and
HINT_ARYBASE is set to indicate this.
using $[ is highly discouraged, no sane Perl code will be using it. */
#define CopARYBASE_get(c) \
((CopHINTS_get(c) & HINT_ARYBASE) \
using $[ is highly discouraged, no sane Perl code will be using it. */
#define CopARYBASE_get(c) \
((CopHINTS_get(c) & HINT_ARYBASE) \
#define PUSHSUB_BASE(cx) \
ENTRY_PROBE(GvENAME(CvGV(cv)), \
CopFILE((const COP *)CvSTART(cv)), \
#define PUSHSUB_BASE(cx) \
ENTRY_PROBE(GvENAME(CvGV(cv)), \
CopFILE((const COP *)CvSTART(cv)), \
STMT_START { \
RETURN_PROBE(GvENAME(CvGV((const CV*)cx->blk_sub.cv)), \
CopFILE((COP*)CvSTART((const CV*)cx->blk_sub.cv)), \
STMT_START { \
RETURN_PROBE(GvENAME(CvGV((const CV*)cx->blk_sub.cv)), \
CopFILE((COP*)CvSTART((const CV*)cx->blk_sub.cv)), \
#define G_UNDEF_FILL 512 /* Fill the stack with &PL_sv_undef
A special case for UNSHIFT in
Perl_magic_methcall(). */
#define G_UNDEF_FILL 512 /* Fill the stack with &PL_sv_undef
A special case for UNSHIFT in
Perl_magic_methcall(). */