X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FB%2FB%2FDebug.pm;h=8b34a1d8af022e2c7e2abde8772f7f8fd6ad4736;hb=bb7c595be2e30a806b95ad83e9d3613aeb95c384;hp=9a3e70da26f20ddf40c004675e83fd29e1d0c2b4;hpb=11ca45c0440b891278a1e7129025dd5644026556;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/B/B/Debug.pm b/ext/B/B/Debug.pm
index 9a3e70d..8b34a1d 100644
--- a/ext/B/B/Debug.pm
+++ b/ext/B/B/Debug.pm
@@ -232,6 +232,9 @@ sub B::AV::debug {
 	MAX		%d
 	OFF		%d
 EOT
+    printf <<'EOT', $av->AvFLAGS if $] < 5.009;
+	AvFLAGS		%d
+EOT
 }
 
 sub B::GV::debug {