Change PerlIO::Scalar and Via to scalar and via.

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

diff --git a/ext/B/B/Showlex.pm b/ext/B/B/Showlex.pm
index 648f95d..0140c8a 100644 (file)
--- a/ext/B/B/Showlex.pm
+++ b/ext/B/B/Showlex.pm
@@ -1,4 +1,7 @@
 package B::Showlex;
+
+our $VERSION = '1.00';
+
 use strict;
 use B qw(svref_2object comppadlist class);
 use B::Terse ();
@@ -12,7 +15,24 @@ use B::Terse ();
 # to see the names of file scope lexicals used by bar.pl
 #    
 
-sub showarray {
+sub shownamearray {
+    my ($name, $av) = @_;
+    my @els = $av->ARRAY;
+    my $count = @els;
+    my $i;
+    print "$name has $count entries\n";
+    for ($i = 0; $i < $count; $i++) {
+        print "$i: ";
+       my $sv = $els[$i];
+       if (class($sv) ne "SPECIAL") {
+           printf "%s (0x%lx) %s\n", class($sv), $$sv, $sv->PVX;
+       } else {
+            $sv->terse;
+       }
+    }
+}
+
+sub showvaluearray {
     my ($name, $av) = @_;
     my @els = $av->ARRAY;
     my $count = @els;
@@ -26,8 +46,8 @@ sub showarray {
 
 sub showlex {
     my ($objname, $namesav, $valsav) = @_;
-    showarray("Pad of lexical names for $objname", $namesav);
-    showarray("Pad of lexical values for $objname", $valsav);
+    shownamearray("Pad of lexical names for $objname", $namesav);
+    showvaluearray("Pad of lexical values for $objname", $valsav);
 }
 
 sub showlex_obj {