Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

breakpoint has no effect #15148

Open
p5pRT opened this issue Jan 26, 2016 · 1 comment
Open

breakpoint has no effect #15148

p5pRT opened this issue Jan 26, 2016 · 1 comment
Labels
distro-Linux type-core

Comments

@p5pRT
Copy link

p5pRT commented Jan 26, 2016

Migrated from rt.perl.org#127379 (status was 'new')

Searchable as RT127379$
@p5pRT
Copy link
Author

p5pRT commented Jan 26, 2016

From @KES777

Created by @KES777

Setting breakpiont on the elsif has no effect despite on the ${ '​::_<t.pl' }[ line ] ==0 reports this line is breakable
How to reproduce​:

$ cat t.pl
#!/usr/bin/env perl

my $x;
sub t {
  1;
}

if( t() > 2 ) {
  1;
}
elsif( t() ) {
  1;
}

# my $line=0; print +($_==0?' '​:'x'). $line++ ." $_" for @​{ '​::_<t.pl' }
# print keys %{ '​::_<t.pl' }

$ perl -d t.pl

Loading DB routines from perl5db.pl version 1.49_01
Editor support available.

Enter h or 'h h' for help, or 'man perldebug' for more help.

main​::(t.pl​:3)​: my $x;
main​::(t.pl​:4)​: sub t {

DB<1> my $line=0; print +($_==0?' '​:'x'). $line++ ." $_" for @​{ '​::_<t.pl' }
0 BEGIN{ require "perl5db.pl" };
1 #!/usr/bin/env perl
2
x3 my $x;
4 sub t {
x5 1;
6 }
7
x8 if( t() > 2 ) {
x9 1;
10 }
x11 elsif( t() ) {
x12 1;
13 }
14
15 # my $line=0; print +($_==0?' '​:'x'). $line++ ." $_" for @​{ '​::_<t.pl' }
16 # print keys %{ '​::_<t.pl' }

DB<2> b 11
DB<3> b 12
<<Here you can see that internally perl has breakpoint on line 11
DB<4> print keys %{ '​::_<t.pl' }
1211
DB<5> c
<<But it do not stop on line 11
main​::(t.pl​:12)​: 1;
DB<5>

it seems this is related issue​: https://rt.perl.org/Public/Bug/Display.html?id=127377
But I may wrong

Perl Info 

Flags:
    category=core
    severity=high

Site configuration information for perl 5.22.0:

Configured by kes at Tue Sep 29 16:12:55 EEST 2015.

Summary of my perl5 (revision 5 version 22 subversion 0) configuration:
   
  Platform:
    osname=linux, osvers=3.13.0-37-generic, archname=x86_64-linux
    uname='linux keswork 3.13.0-37-generic #64-ubuntu smp mon sep 22 21:28:38 utc 2014 x86_64 x86_64 x86_64 gnulinux '
    config_args='-des -Dprefix=/home/kes/perl'
    hint=recommended, useposix=true, d_sigaction=define
    useithreads=undef, usemultiplicity=undef
    use64bitint=define, use64bitall=define, uselongdouble=undef
    usemymalloc=n, bincompat5005=undef
  Compiler:
    cc='cc', ccflags ='-fwrapv -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
    optimize='-O2',
    cppflags='-fwrapv -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include'
    ccversion='', gccversion='4.8.4', gccosandvers=''
    intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678, doublekind=3
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16, longdblkind=3
    ivtype='long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
    alignbytes=8, prototype=define
  Linker and Libraries:
    ld='cc', ldflags =' -fstack-protector -L/usr/local/lib'
    libpth=/usr/local/lib /usr/lib/gcc/x86_64-linux-gnu/4.8/include-fixed /usr/include/x86_64-linux-gnu /usr/lib /lib/x86_64-linux-gnu /lib/../lib /usr/lib/x86_64-linux-gnu /usr/lib/../lib /lib
    libs=-lpthread -lnsl -ldl -lm -lcrypt -lutil -lc
    perllibs=-lpthread -lnsl -ldl -lm -lcrypt -lutil -lc
    libc=libc-2.19.so, so=so, useshrplib=false, libperl=libperl.a
    gnulibc_version='2.19'
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
    cccdlflags='-fPIC', lddlflags='-shared -O2 -L/usr/local/lib -fstack-protector'



@INC for perl 5.22.0:
    /home/kes/work/projects/perl_libs/lib
    /home/kes/perl5/lib/perl5/x86_64-linux
    /home/kes/perl5/lib/perl5
    /home/kes/perl/lib/site_perl/5.22.0/x86_64-linux
    /home/kes/perl/lib/site_perl/5.22.0
    /home/kes/perl/lib/5.22.0/x86_64-linux
    /home/kes/perl/lib/5.22.0
    .


Environment for perl 5.22.0:
    HOME=/home/kes
    LANG=ru_UA.UTF-8
    LANGUAGE=en
    LC_MESSAGES=en_US.UTF-8
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PATH=/home/kes/perl/bin:/home/kes/perl/bin:/home/kes/perl5/bin:/home/kes/bin:/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/usr/local/games
    PERL5DB=BEGIN { require "Devel/KillPrint.pm" }
    PERL5LIB=/home/kes/work/projects/perl_libs/lib:/home/kes/perl5/lib/perl5
    PERLDB_OPTS=RemotePort=keswork:9001
    PERL_BADLANG (unset)
    PERL_MB_OPT=--install_base "/home/kes/perl5"
    PERL_MM_OPT=INSTALL_BASE=/home/kes/perl5
    SHELL=/bin/bash

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Assignees
No one assigned
Labels
distro-Linux type-core
Projects
None yet
Milestone
No milestone
Development

No branches or pull requests
2 participants
@xenu @p5pRT