Re: [patch] teach B::Concise to see XS code

[p5sagit/p5-mst-13.2.git] / ext / B / B / Concise.pm

diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm
index 2129046..9386e01 100644 (file)
--- a/ext/B/B/Concise.pm
+++ b/ext/B/B/Concise.pm
@@ -173,7 +173,7 @@ sub concise_cv_obj {
            print $walkHandle "coderef $name has no START\n";
        }
        elsif (exists &$name) {
-           print $walkHandle "subroutine $name exists\n";
+           print $walkHandle "$name exists in stash, but has no START\n";
        }
        else {
            print $walkHandle "$name not in symbol table\n";