From: Paul Johnson <paul@pjcj.net>
Date: Wed, 8 Aug 2001 23:54:17 +0000 (+0200)
Subject: Teach B::Concise about PADOP
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=051f02e983053ff48094f7dc29c02d94b7f7d171;p=p5sagit%2Fp5-mst-13.2.git

Teach B::Concise about PADOP
Message-ID: <20010808235417.O1006@pjcj.net>

p4raw-id: //depot/perl@11614
---

diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm
index 2663b91..ccf326c 100644
--- a/ext/B/B/Concise.pm
+++ b/ext/B/B/Concise.pm
@@ -151,7 +151,7 @@ my $lastnext;
 
 my %opclass = ('OP' => "0", 'UNOP' => "1", 'BINOP' => "2", 'LOGOP' => "|",
 	       'LISTOP' => "@", 'PMOP' => "/", 'SVOP' => "\$", 'GVOP' => "*",
-	       'PVOP' => '"', 'LOOP' => "{", 'COP' => ";");
+	       'PVOP' => '"', 'LOOP' => "{", 'COP' => ";", 'PADOP' => "#");
 
 no warnings 'qw'; # "Possible attempt to put comments..."
 my @linenoise =
@@ -845,6 +845,7 @@ The numeric value of the OP's type, in decimal.
     "      PVOP             An OP with a string
     {      LOOP             An OP that holds pointers for a loop
     ;      COP              An OP that marks the start of a statement
+    #      PADOP            An OP with a GV on the pad
 
 =head1 Using B::Concise outside of the O framework