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 (file)
--- 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 (file)
--- 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 (executable)
--- 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`;