diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-08-29 10:17:07 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-30 01:17:25 +0000 |
| commit | 7b910cb885e3dd119baf0e7700aa52474f422093 (patch) | |
| tree | 88995923a31473726c9377d0b74421e9fedba57f /cop.h | |
| parent | d2caad93f645241ce33c81013feb2e15cee6bba3 (diff) | |
| download | perl-7b910cb885e3dd119baf0e7700aa52474f422093.tar.gz | |
Re: [ID 20000829.020] perl -e 'package; print __PACKAGE__' core dumps
Message-Id: <200008300017.RAA25382@smtp3.ActiveState.com>
p4raw-id: //depot/perl@6909
Diffstat (limited to 'cop.h')
| -rw-r--r-- | cop.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -35,10 +35,10 @@ struct cop { # define CopFILEAV(c) (CopFILE(c) \ ? GvAV(gv_fetchfile(CopFILE(c))) : Nullav) # define CopSTASHPV(c) ((c)->cop_stashpv) -# define CopSTASHPV_set(c,pv) ((c)->cop_stashpv = savepv(pv)) +# define CopSTASHPV_set(c,pv) ((c)->cop_stashpv = ((pv) ? savepv(pv) : Nullch)) # define CopSTASH(c) (CopSTASHPV(c) \ ? gv_stashpv(CopSTASHPV(c),GV_ADD) : Nullhv) -# define CopSTASH_set(c,hv) CopSTASHPV_set(c, HvNAME(hv)) +# define CopSTASH_set(c,hv) CopSTASHPV_set(c, (hv) ? HvNAME(hv) : Nullch) # define CopSTASH_eq(c,hv) ((hv) \ && (CopSTASHPV(c) == HvNAME(hv) \ || (CopSTASHPV(c) && HvNAME(hv) \ |