From: Tim Bunce <Tim.Bunce@pobox.com>
Date: Thu, 27 Sep 2012 15:13:11 +0000 (+0900)
Subject: check for AVelem, remove Dwarn
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=37836f2a1adba4e9bc257aebb7576c41d367c236;p=p5sagit%2FDevel-Size.git

check for AVelem, remove Dwarn
---

diff --git a/memnodes.pl b/memnodes.pl
index 7fea56b..bd3d1b4 100755
--- a/memnodes.pl
+++ b/memnodes.pl
@@ -100,8 +100,7 @@ sub enter_node {
     my $parent = $stack[-1];
     if ($parent) {
 
-        if ($parent->{name} eq 'SV(PVAV)') {
-            Dwarn $x->{attr};
+        if ($x->{name} eq 'AVelem' and $parent->{name} eq 'SV(PVAV)') {
             my $index = $x->{attr}{index};
             # If node is an AVelem of a CvPADLIST propagate pad name to AVelem
             if (@stack >= 4 and (my $cvpl = $stack[-4])->{name} eq 'CvPADLIST') {