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 /cop.h | |
| 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 'cop.h')
| -rw-r--r-- | cop.h | 13 |
1 files changed, 3 insertions, 10 deletions
@@ -178,20 +178,13 @@ struct cop { # define CopSTASH(c) (CopSTASHPV(c) \ ? gv_stashpv(CopSTASHPV(c),GV_ADD) : Nullhv) # define CopSTASH_set(c,hv) CopSTASHPV_set(c, (hv) ? HvNAME_get(hv) : Nullch) -# define CopSTASH_eq(c,hv) ((hv) \ - && (CopSTASHPV(c) == HvNAME_get(hv) \ - || (CopSTASHPV(c) && HvNAME_get(hv)\ - && strEQ(CopSTASHPV(c), HvNAME_get(hv))))) +# define CopSTASH_eq(c,hv) ((hv) && stashpv_hvname_match(c,hv)) # ifdef NETWARE # define CopSTASH_free(c) SAVECOPSTASH_FREE(c) -# else -# define CopSTASH_free(c) PerlMemShared_free(CopSTASHPV(c)) -# endif - -# ifdef NETWARE # define CopFILE_free(c) SAVECOPFILE_FREE(c) # else -# define CopFILE_free(c) (PerlMemShared_free(CopFILE(c)),(CopFILE(c) = Nullch)) +# define CopSTASH_free(c) PerlMemShared_free(CopSTASHPV(c)) +# define CopFILE_free(c) (PerlMemShared_free(CopFILE(c)),(CopFILE(c) = Nullch)) # endif #else # define CopFILEGV(c) ((c)->cop_filegv) |