Re: Bug found in Open Perl IDE perl5db.pl module
- From: smallpond <smallpond@xxxxxxxx>
- Date: Wed, 30 Jul 2008 10:16:17 -0700 (PDT)
On Jul 30, 5:21 am, mattsteel <matteo_vitt...@xxxxxxxxxxx> wrote:
Hello all.
I'm using this IDE since months, and have to say this is a good IDE,
light, simple, easy to use, but not bug-free ;-)
I found a subtle bug in perl5db.pl module (that is shipped with the
IDE for Windows available from SurceForge);
Trying this piece of script:
my $code = sub { print "hello\n" } ;
print "Let's call $code\n";
$code->();
print "Done.\n";
During a normal debug session, moving the mouse over the variable
$code (that is a code-reference i.e. ref($code) returns CODE), the IDE
replies with an “<undef>” which is not true. The same thing happens
listing $code in the “variable” watch-window.
I tried to fix it and patched the perl5db.pl module to handle this
case, so the IDE replies something like
“$code: code = 0x1a81c40”.
Since the module source is more than 700 lines long, I think useful
giving here the four chunks I added: I simply added another "elsif"
case just before the ending "else", so you should be able to insert
these few lines directly in your dbTemplate.txt in the correct
position.
#within SizeOfDerefValue sub:
} elsif ($refType eq 'CODE') {
return length($reference);
#within ShortEval sub:
} elsif ($refType eq 'CODE') {
$reference =~ /\((.*)\)/;
return "code = $1";
#within LongEval sub:
} elsif ($refType eq 'CODE') {
$reference =~ /\((.*)\)/;
$retValue = "code = $1";
#within ShowDerefValues sub:
} elsif ($refType eq 'CODE') {
$type = "code";
$reference =~ /\((.*)\)/;
$value = "$1";
I hope this helps.
Regards.
You might want to post this on Sourceforge if that's where the project
is located.
--S
.
- References:
- Bug found in Open Perl IDE perl5db.pl module
- From: mattsteel
- Bug found in Open Perl IDE perl5db.pl module
- Prev by Date: Re: fix a per script
- Next by Date: Re: FAQ 4.2 Why is int() broken?
- Previous by thread: Bug found in Open Perl IDE perl5db.pl module
- Next by thread: FAQ 4.28 How do I change the Nth occurrence of something?
- Index(es):
Relevant Pages
|
