This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
turbidity in av.[ch]
authorGurusamy Sarathy <gsar@engin.umich.edu>
Sun, 10 Dec 1995 05:21:31 +0000 (00:21 -0500)
committerAndy Dougherty <doughera@lafcol.lafayette.edu>
Sun, 10 Dec 1995 05:21:31 +0000 (00:21 -0500)
Some unclean code that I noticed today.

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))