Author: nicholas
Date: Fri Mar 17 14:31:18 2006
New Revision: 400
Modified:
branches/5.9.3merge/perl/av.h
Log:
Correct the definition of AvREIFY_only().
Modified: branches/5.9.3merge/perl/av.h
==============================================================================
--- branches/5.9.3merge/perl/av.h (original)
+++ branches/5.9.3merge/perl/av.h Fri Mar 17 14:31:18 2006
@@ -77,7 +77,7 @@
#define AvREUSED(av) (AvFLAGS(av) & AVf_REUSED)
#define AvREUSED_on(av) (AvFLAGS(av) |= AVf_REUSED)
#define AvREUSED_off(av) (AvFLAGS(av) &= ~AVf_REUSED)
-#define AvREIFY_only(av) (AvREAL_off(av), AvFLAGS(av) |= AVf_REAL)
+#define AvREIFY_only(av) (AvREAL_off(av), AvFLAGS(av) |= AVf_REIFY)
#define AvREALISH(av) (AvFLAGS(av) & (AVf_REAL|AVf_REIFY))
#define AvFILL(av) ((SvRMAGICAL((SV *) (av))) \