X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=autovivification.xs;h=a2377592246a4b41e7fa013e6e3e199410de863b;hb=d76caa53717065423c4087ca493acaa9ee198984;hp=68bc21789fda3452a09550ecd9a3276cb8c0a2b1;hpb=0c717cedff4b08d709037ba6449abd1b517a2466;p=perl%2Fmodules%2Fautovivification.git

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)) {