| Subject: | $info->dump returning the dump |
| Date: | Wed, 2 May 2007 11:25:53 -0300 |
| To: | bug-sub-information [...] rt.cpan.org |
| From: | "Adriano Ferreira" <a.r.ferreira [...] gmail.com> |
Hi, Ovid.
It's me again. This time I tried to address the limitation imposed by
Devel::Peek which dumps to STDERR and implemented a capture
subroutine. But... I am faced with a damned warning that I don't
understand and which gets merged in the captured output.
For example,
$ pirl
Welcome to the Perl shell. Type ':help' for more information
pirl @> use Sub::Information as => 'peek';
()
pirl @> :set out Y
pirl @> peek( sub { 1 } )->dump
--- |
Use of uninitialized value in subroutine entry at
/usr/local/lib/perl5/site_perl/5.8.8/Sub/Information.pm line 374.
SV = RV(0x102a0b1c) at 0x105a18f0
REFCNT = 1
FLAGS = (ROK)
RV = 0x105a1af4
SV = PVCV(0x10594fa8) at 0x105a1af4
REFCNT = 3
FLAGS = (PADBUSY,PADMY,ANON,WEAKOUTSIDE)
IV = 0
NV = 0
COMP_STASH = 0x104da3f8 "Shell::Perl::sandbox"
START = 0x105d1c08 ===> 28173
ROOT = 0x105ce948
XSUB = 0x0
XSUBANY = 0
GVGV::GV = 0x105a1884 "Shell::Perl::sandbox" :: "__ANON__"
FILE = "(eval 31)"
DEPTH = 0
FLAGS = 0x404
OUTSIDE_SEQ = 2477
PADLIST = 0x1059257c
PADNAME = 0x105a1908(0x104deaa8) PAD = 0x105a174c(0x105c7588)
OUTSIDE = 0x1036a014 (UNIQUE)
So I submit this for your appreciation while I work on it a little bit more.
Regards,
Adriano Ferreira
P.S. Maybe adding one more dependency would be a good thing to get rid
of the horrible code I introduced.
Message body is not shown because sender requested not to inline it.