From: Vincent Pit <vince@profvince.com>
Date: Thu, 18 Jun 2009 14:54:24 +0000 (+0200)
Subject: rv2xv introducing a gv don't need to be overridden
X-Git-Tag: v0.03~11
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=d76caa53717065423c4087ca493acaa9ee198984;p=perl%2Fmodules%2Fautovivification.git

rv2xv introducing a gv don't need to be overridden
---

diff --git a/autovivification.xs b/autovivification.xs
index 68bc217..a237759 100644
--- a/autovivification.xs
+++ b/autovivification.xs
@@ -525,6 +525,9 @@ STATIC OP *a_ck_rv2xv(pTHX_ OP *o) {
  }
  o = CALL_FPTR(old_ck)(aTHX_ o);
 
+ if (cUNOPo->op_first->op_type == OP_GV)
+  return o;
+
  hint = a_hint();
  if (hint & A_HINT_DO) {
   if (!(hint & A_HINT_STRICT)) {