This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
turbidity in av.[ch]
[perl5.git] / av.h
diff --git a/av.h b/av.h
index 93dcc0c..56b6e32 100644 (file)
--- a/av.h
+++ b/av.h
@@ -44,5 +44,5 @@ struct xpvav {
 #define AvREUSED_on(av)        (AvFLAGS(av) |= AVf_REUSED)
 #define AvREUSED_off(av) (AvFLAGS(av) &= ~AVf_REUSED)
 
-#define AvREALISH(av)  AvFLAGS(av)     /* REAL or REIFY -- shortcut */
+#define AvREALISH(av)  (AvFLAGS(av) & (AVf_REAL|AVf_REIFY))