develooper Front page | perl.perl5.porters | Postings from August 2001

[PATCH bleadperl] Teach B::Concise about PADOP

Thread Next
From:
Paul Johnson
Date:
August 8, 2001 15:15
Subject:
[PATCH bleadperl] Teach B::Concise about PADOP
Message ID:
20010808235417.O1006@pjcj.net
This small patch teaches B::Concise about PADOP which makes in work with
ithreads.

--- ext/B/B/Concise.pm.~1~	Mon Apr 30 19:35:03 2001
+++ ext/B/B/Concise.pm	Wed Aug  8 23:21:26 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
 

-- 
Paul Johnson - paul@pjcj.net
http://www.pjcj.net

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About