diff options
| author | Andy Lester <andy@petdance.com> | 2005-06-14 18:49:26 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-15 09:03:22 +0000 |
| commit | ed221c571749f1ebcbc3664c74e36e68f3a83031 (patch) | |
| tree | f7ffcc409cc38b5ad8c07745d15189be70bf8788 /util.c | |
| parent | 1e2ebb21f72f169e9de6c2bde1af6eb417686775 (diff) | |
| download | perl-ed221c571749f1ebcbc3664c74e36e68f3a83031.tar.gz | |
CopSTASH_eq again
Message-ID: <20050615044926.GA29087@petdance.com>
p4raw-id: //depot/perl@24847
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 17 |
1 files changed, 17 insertions, 0 deletions
@@ -4812,6 +4812,23 @@ Perl_get_hash_seed(pTHX) return myseed; } +#ifdef USE_ITHREADS +bool +Perl_stashpv_hvname_match(pTHX_ const COP *c, const HV *hv) +{ + const char * const stashpv = CopSTASHPV(c); + const char * const name = HvNAME_get(hv); + + if (stashpv == name) + return TRUE; + if (stashpv && name) + if (strEQ(stashpv, name)) + return TRUE; + return FALSE; +} +#endif + + #ifdef PERL_GLOBAL_STRUCT struct perl_vars * |