This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Nothing is actually relying on GvUNIQUE holding state.
authorNicholas Clark <nick@ccl4.org>
Thu, 30 Jun 2005 09:21:05 +0000 (09:21 +0000)
committerNicholas Clark <nick@ccl4.org>
Thu, 30 Jun 2005 09:21:05 +0000 (09:21 +0000)
p4raw-id: //depot/perl@25018

gv.h

diff --git a/gv.h b/gv.h
index d59307a..e087c9a 100644 (file)
--- a/gv.h
+++ b/gv.h
@@ -130,12 +130,9 @@ Return the SV from the GV.
 #define GvIN_PAD_on(gv)                (GvFLAGS(gv) |= GVf_IN_PAD)
 #define GvIN_PAD_off(gv)       (GvFLAGS(gv) &= ~GVf_IN_PAD)
 
-/* XXX: all GvFLAGS options are used, borrowing GvGPFLAGS for the moment */
-
-#define GVf_UNIQUE           0x0001
-#define GvUNIQUE(gv)         (GvGP(gv) && (GvGPFLAGS(gv) & GVf_UNIQUE))
-#define GvUNIQUE_on(gv)      (GvGPFLAGS(gv) |= GVf_UNIQUE)
-#define GvUNIQUE_off(gv)     (GvGPFLAGS(gv) &= ~GVf_UNIQUE)
+#define GvUNIQUE(gv)            0
+#define GvUNIQUE_on(gv)         0
+#define GvUNIQUE_off(gv)        0
 
 #ifdef USE_ITHREADS
 #define GV_UNIQUE_CHECK