X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/127191935588596728c62621b37dcfbab94edc5c..2e90857c3f14d52c46c4c7aeffea29ac190f4bee:/av.h diff --git a/av.h b/av.h index 391ae36..dcd32cf 100644 --- a/av.h +++ b/av.h @@ -74,6 +74,7 @@ Same as C. #define AvREIFY_off(av) (SvFLAGS(av) &= ~SVpav_REIFY) #define AvREIFY_only(av) (AvREAL_off(av), SvFLAGS(av) |= SVpav_REIFY) + #define AvREALISH(av) (SvFLAGS(av) & (SVpav_REAL|SVpav_REIFY)) #define AvFILL(av) ((SvRMAGICAL((const SV *) (av))) \