]> git.vpit.fr Git - perl/modules/autovivification.git/commitdiff
rv2xv introducing a gv don't need to be overridden
authorVincent Pit <vince@profvince.com>
Thu, 18 Jun 2009 14:54:24 +0000 (16:54 +0200)
committerVincent Pit <vince@profvince.com>
Thu, 18 Jun 2009 14:54:24 +0000 (16:54 +0200)
autovivification.xs

index 68bc21789fda3452a09550ecd9a3276cb8c0a2b1..a2377592246a4b41e7fa013e6e3e199410de863b 100644 (file)
@@ -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)) {