From: Dave Mitchell <davem@fdisolutions.com>
Date: Fri, 26 Mar 2004 18:56:50 +0000 (+0000)
Subject: Clarify op.h comments for which ops the OPpDEREF* private flags
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=314d47789e6f2fb6e6cb6d9aa287d0766ea79b45;p=p5sagit%2Fp5-mst-13.2.git

Clarify op.h comments for which ops the OPpDEREF* private flags
are actually used; update Concise.pm to match

p4raw-id: //depot/perl@22597
---

diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm
index 67360d4..cb40021 100644
--- a/ext/B/B/Concise.pm
+++ b/ext/B/B/Concise.pm
@@ -443,7 +443,7 @@ $priv{$_}{64} = "RTIME" for ("match", "subst", "substcont");
 $priv{"repeat"}{64} = "DOLIST";
 $priv{"leaveloop"}{64} = "CONT";
 @{$priv{$_}}{32,64,96} = ("DREFAV", "DREFHV", "DREFSV")
-  for ("entersub", map("rv2${_}v", "a", "s", "h", "g"), "aelem", "helem");
+  for (qw(rv2gv rv2sv padsv aelem helem));
 $priv{"entersub"}{16} = "DBG";
 $priv{"entersub"}{32} = "TARG";
 @{$priv{$_}}{4,8,128} = ("INARGS","AMPER","NO()") for ("entersub", "rv2cv");
diff --git a/op.h b/op.h
index 265b716..6b3f1be 100644
--- a/op.h
+++ b/op.h
@@ -153,8 +153,8 @@ Deprecated.  Use C<GIMME_V> instead.
 /* Private for OP_REPEAT */
 #define OPpREPEAT_DOLIST	64	/* List replication. */
 
-/* Private for OP_RV2?V, OP_?ELEM */
-#define OPpDEREF		(32|64)	/* Want ref to something: */
+/* Private for OP_RV2GV, OP_RV2SV, OP_AELEM, OP_AHLEM, OP_PADSV */
+#define OPpDEREF		(32|64)	/* autovivify: Want ref to something: */
 #define OPpDEREF_AV		32	/*   Want ref to AV. */
 #define OPpDEREF_HV		64	/*   Want ref to HV. */
 #define OPpDEREF_SV		(32|64)	/*   Want ref to SV. */