From: Daniel Chetlin <daniel@chetlin.com>
Date: Wed, 27 Dec 2000 06:43:30 +0000 (-0800)
Subject: Fix B::Terse indentation
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f72d64f00dcc19f7e88984b22d52340f7101e18f;p=p5sagit%2Fp5-mst-13.2.git

Fix B::Terse indentation
Message-ID: <20001227064329.B9573@darkstar>

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

diff --git a/ext/B/B.pm b/ext/B/B.pm
index 982395b..591b581 100644
--- a/ext/B/B.pm
+++ b/ext/B/B.pm
@@ -10,7 +10,8 @@ use XSLoader ();
 require Exporter;
 @ISA = qw(Exporter);
 
-# walkoptree comes from B.pm (you are there), walkoptree comes from B.xs
+# walkoptree_slow comes from B.pm (you are there),
+# walkoptree comes from B.xs
 @EXPORT_OK = qw(minus_c ppname save_BEGINs
 		class peekop cast_I32 cstring cchar hash threadsv_names
 		main_root main_start main_cv svref_2object opnumber
diff --git a/ext/B/B/Terse.pm b/ext/B/B/Terse.pm
index 7c9bd68..a7a071e 100644
--- a/ext/B/B/Terse.pm
+++ b/ext/B/B/Terse.pm
@@ -1,6 +1,6 @@
 package B::Terse;
 use strict;
-use B qw(peekop class walkoptree walkoptree_exec
+use B qw(peekop class walkoptree walkoptree_exec walkoptree_slow
 	 main_start main_root cstring svref_2object);
 use B::Asmdata qw(@specialsv_name);
 
@@ -10,7 +10,7 @@ sub terse {
     if ($order eq "exec") {
 	walkoptree_exec($cv->START, "terse");
     } else {
-	walkoptree($cv->ROOT, "terse");
+	walkoptree_slow($cv->ROOT, "terse");
     }
 }
 
@@ -31,7 +31,7 @@ sub compile {
 	if ($order eq "exec") {
 	    return sub { walkoptree_exec(main_start, "terse") }
 	} else {
-	    return sub { walkoptree(main_root, "terse") }
+	    return sub { walkoptree_slow(main_root, "terse") }
 	}
     }
 }
diff --git a/t/lib/b.t b/t/lib/b.t
index cd5d61a..51999cc 100755
--- a/t/lib/b.t
+++ b/t/lib/b.t
@@ -90,7 +90,7 @@ ok;
 
 $a = `$^X "-I../lib" "-MO=Terse" -e 1 2>&1`;
 print "not " unless $a =~
-/\bLISTOP\b.*leave.*\bOP\b.*enter.*\bCOP\b.*nextstate.*\bOP\b.*null/s;
+/\bLISTOP\b.*leave.*\n    OP\b.*enter.*\n    COP\b.*nextstate.*\n    OP\b.*null/s;
 ok;
 
 $a = `$^X "-I../lib" "-MO=Terse" -ane "s/foo/bar/" 2>&1`;