rv2xv introducing a gv don't need to be overridden

[perl/modules/autovivification.git] / autovivification.xs

diff --git a/autovivification.xs b/autovivification.xs
index 68bc21789fda3452a09550ecd9a3276cb8c0a2b1..a2377592246a4b41e7fa013e6e3e199410de863b 100644 (file)
--- 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)) {