Front page | perl.perl5.porters |
Postings from December 2017
# New Ticket Created by KES
# Please include the string: [perl #132653]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=132653 >
Very often in the program there are consecutive ifs. Like this:
$x = <>;
if( !$x ) {
print 1;
}
elsif( $x eq 'asdf' ) {
print 2;
}
elsif( $x ne 'asdf' ) {
print 3;
}
else {
print 4;
}
And this is unhandy when 's' debugger command skip all ifs and do not stop on each.
For example 'elsif' is skipped on line 8:
$ perl -d ./t.pl
Loading DB routines from perl5db.pl version 1.49_04
Editor support available.
Enter h or 'h h' for help, or 'man perldebug' for more help.
main::(./t.pl:3): $x = <>;
DB<1> s
df
main::(./t.pl:5): if( !$x ) {
DB<1> s
main::(./t.pl:12): print 3;
DB<1>
expected debugging:
main::(./t.pl:3): $x = <>;
DB<1> s
df
main::(./t.pl:5): if( !$x ) {
DB<1> s
main::(./t.pl:8): elsif( $x eq 'asdf' ) {
DB<1> s
main::(./t.pl:12): print 3;
DB<1>
Thread Previous
|
Thread Next