From: Stephen McCamant <smcc@mit.edu>
Date: Fri, 12 Jan 2001 21:45:17 +0000 (-0800)
Subject: Re: B::Concise -- an improved replacement for B::Terse
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c3caa09d922a34301c99871593a785495055fc64;p=p5sagit%2Fp5-mst-13.2.git

Re: B::Concise -- an improved replacement for B::Terse
Message-ID: <14943.59712.993695.180189@soda.csua.berkeley.edu>

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

diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm
index 9f53955..cc894d3 100644
--- a/ext/B/B/Concise.pm
+++ b/ext/B/B/Concise.pm
@@ -3,15 +3,15 @@ package B::Concise;
 # This program is free software; you can redistribute and/or modify it
 # under the same terms as Perl itself.
 
-our $VERSION = "0.50";
+our $VERSION = "0.51";
 use strict;
 use B qw(class ppname main_start main_root main_cv cstring svref_2object
 	 SVf_IOK SVf_NOK SVf_POK OPf_KIDS);
 
 my %style = 
   ("terse" =>
-   ["(?(#label =>\n)?)(*(    )*)#class (#addr) pp_#name "
-    . "(?([#targ])?) #svclass~(?((#svaddr))?)~#svval\n",
+   ["(?(#label =>\n)?)(*(    )*)#class (#addr) #name (?([#targ])?) "
+    . "#svclass~(?((#svaddr))?)~#svval~(?(label \"#coplabel\")?)\n",
     "(*(    )*)goto #class (#addr)\n",
     "#class pp_#name"],
    "concise" =>
@@ -352,6 +352,7 @@ sub concise_op {
 	$h{svval} = '"' . $op->pv . '"';
     } elsif ($h{class} eq "COP") {
 	my $label = $op->label;
+	$h{coplabel} = $label;
 	$label = $label ? "$label: " : "";
 	my $loc = $op->file;
 	$loc =~ s[.*/][];
@@ -667,6 +668,10 @@ The B-determined class of the OP, in all caps.
 
 A single symbol abbreviating the class of the OP.
 
+=item B<#coplabel>
+
+The label of the statement or block the OP is the start of, if any.
+
 =item B<#exname>
 
 The name of the OP, or 'ex-foo' if the OP is a null that used to be a foo.