Change 11614 by jhi@alpha on 2001/08/08 21:50:19
Subject: [PATCH bleadperl] Teach B::Concise about PADOP
From: Paul Johnson <[EMAIL PROTECTED]>
Date: Wed, 8 Aug 2001 23:54:17 +0200
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/B/B/Concise.pm#10 edit
Differences ...
==== //depot/perl/ext/B/B/Concise.pm#10 (text) ====
Index: perl/ext/B/B/Concise.pm
--- perl/ext/B/B/Concise.pm.~1~ Wed Aug 8 16:00:05 2001
+++ perl/ext/B/B/Concise.pm Wed Aug 8 16:00:05 2001
@@ -151,7 +151,7 @@
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 @@
" 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
End of Patch.
