__UNDEFINED__

#ifdef USE_ITHREADS

__UNDEFINED__ CopFILE(c) ((c)->cop_file) __UNDEFINED__ CopFILEGV(c) (CopFILE(c) ? gv_fetchfile(CopFILE(c)) : Nullgv) __UNDEFINED__ CopFILE_set(c,pv) ((c)->cop_file = savepv(pv)) __UNDEFINED__ CopFILESV(c) (CopFILE(c) ? GvSV(gv_fetchfile(CopFILE(c))) : Nullsv) __UNDEFINED__ CopFILEAV(c) (CopFILE(c) ? GvAV(gv_fetchfile(CopFILE(c))) : Nullav) __UNDEFINED__ CopSTASHPV(c) ((c)->cop_stashpv) __UNDEFINED__ CopSTASHPV_set(c,pv) ((c)->cop_stashpv = ((pv) ? savepv(pv) : Nullch)) __UNDEFINED__ CopSTASH(c) (CopSTASHPV(c) ? gv_stashpv(CopSTASHPV(c),GV_ADD) : Nullhv) __UNDEFINED__ CopSTASH_set(c,hv) CopSTASHPV_set(c, (hv) ? HvNAME(hv) : Nullch) __UNDEFINED__ CopSTASH_eq(c,hv) ((hv) && (CopSTASHPV(c) == HvNAME(hv) \ || (CopSTASHPV(c) && HvNAME(hv) \ && strEQ(CopSTASHPV(c), HvNAME(hv)))))

#else

__UNDEFINED__ CopFILEGV(c) ((c)->cop_filegv) __UNDEFINED__ CopFILEGV_set(c,gv) ((c)->cop_filegv = (GV*)SvREFCNT_inc(gv)) __UNDEFINED__ CopFILE_set(c,pv) CopFILEGV_set((c), gv_fetchfile(pv)) __UNDEFINED__ CopFILESV(c) (CopFILEGV(c) ? GvSV(CopFILEGV(c)) : Nullsv) __UNDEFINED__ CopFILEAV(c) (CopFILEGV(c) ? GvAV(CopFILEGV(c)) : Nullav) __UNDEFINED__ CopFILE(c) (CopFILESV(c) ? SvPVX(CopFILESV(c)) : Nullch) __UNDEFINED__ CopSTASH(c) ((c)->cop_stash) __UNDEFINED__ CopSTASH_set(c,hv) ((c)->cop_stash = (hv)) __UNDEFINED__ CopSTASHPV(c) (CopSTASH(c) ? HvNAME(CopSTASH(c)) : Nullch) __UNDEFINED__ CopSTASHPV_set(c,pv) CopSTASH_set((c), gv_stashpv(pv,GV_ADD)) __UNDEFINED__ CopSTASH_eq(c,hv) (CopSTASH(c) == (hv))

#endif /* USE_ITHREADS */

char * CopSTASHPV() CODE: RETVAL = CopSTASHPV(PL_curcop); OUTPUT: RETVAL

char * CopFILE() CODE: RETVAL = CopFILE(PL_curcop); OUTPUT: RETVAL

my $package; { package MyPackage; $package = &Devel::PPPort::CopSTASHPV(); } print "# $package\n"; ok($package, "MyPackage");

my $file = &Devel::PPPort::CopFILE(); print "# $file\n"; ok($file =~ /cop/i);