From @pjscott

I am reasonably sure this one is a bug since it works the way I think it
should in 5.00503 :-)

A program using the DATA filehandle when run under the debugger does not
display the source lines on single stepping.

$ cat foo
#!/usr/bin/perl -d
my $foo = 1;
while (<DATA>) {
  print;
}
__END__
bar

$ perl foo
Default die handler restored.

Loading DB routines from perl5db.pl version 1.07
Editor support available.

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

main​::(foo​:2)​:
  DB<1> n
main​::(foo​:3)​:
  DB<1> n
main​::(foo​:4)​:
  DB<1> n
bar
main​::(foo​:3)​:
  DB<1> n
Debugged program terminated. Use q to quit or R to restart,
  use O inhibit_exit to avoid stopping after program termination,
  h q, h R or h O to get additional info.

Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration​:
  Platform​:
  osname=linux, osvers=2.2.14-5.0, archname=i586-linux
  uname='linux 24.67.201.82.bc.wave.home.com 2.2.14-5.0 #1 tue mar 7
20​:53​:41 est 2000 i586 unknown '
  config_args=''
  hint=recommended, useposix=true, d_sigaction=define
  usethreads=undef use5005threads=undef useithreads=undef
usemultiplicity=undef
  useperlio=undef d_sfio=undef uselargefiles=define
  use64bitint=undef use64bitall=undef uselongdouble=undef usesocks=undef
  Compiler​:
  cc='cc', optimize='-g', gccversion=egcs-2.91.66 19990314/Linux
(egcs-1.1.2 release)
  cppflags='-DDEBUGGING -fno-strict-aliasing'
  ccflags ='-DDEBUGGING -fno-strict-aliasing -D_LARGEFILE_SOURCE
-D_FILE_OFFSET_BITS=64'
  stdchar='char', d_stdstdio=define, usevfork=false
  intsize=4, longsize=4, ptrsize=4, doublesize=8
  d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
  ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
lseeksize=8
  alignbytes=4, usemymalloc=n, prototype=define
  Linker and Libraries​:
  ld='cc', ldflags =' -L/usr/local/lib'
  libpth=/usr/local/lib /lib /usr/lib
  libs=-lnsl -lndbm -lgdbm -ldb -ldl -lm -lc -lposix -lcrypt
  libc=/lib/libc-2.1.3.so, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking​:
  dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
  cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'

Characteristics of this binary (from libperl)​:
  Compile-time options​: DEBUGGING USE_LARGE_FILES
  Built under linux
  Compiled at May 3 2000 12​:54​:39
  @​INC​:
  /usr/lib/perl5/5.6.0/i586-linux
  /usr/lib/perl5/5.6.0
  /usr/lib/perl5/site_perl/5.6.0/i586-linux
  /usr/lib/perl5/site_perl/5.6.0
  /usr/lib/perl5/site_perl/5.005
  /usr/lib/perl5/site_perl
  .

From @tamias

On Fri, May 26, 2000 at 02​:17​:26PM -0700, Peter Scott wrote​:

I am reasonably sure this one is a bug since it works the way I think it
should in 5.00503 :-)

A program using the DATA filehandle when run under the debugger does not
display the source lines on single stepping.

$ cat foo
#!/usr/bin/perl -d
my $foo = 1;
while (<DATA>) {
print;
}
__END__
bar

$ perl foo
Default die handler restored.

Loading DB routines from perl5db.pl version 1.07
Editor support available.

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

main​::(foo​:2)​:
DB<1> n
main​::(foo​:3)​:
DB<1> n
main​::(foo​:4)​:
DB<1> n
bar
main​::(foo​:3)​:
DB<1> n
Debugged program terminated. Use q to quit or R to restart,
use O inhibit_exit to avoid stopping after program termination,
h q, h R or h O to get additional info.

No problems here​:

C​:/bin 61> perl tmp
Default die handler restored.

Loading DB routines from perl5db.pl version 1.07
Editor support available.

Enter h or `h h' for help, or `perldoc perldebug' for more help.

main​::(tmp​:2)​: my $foo = 1;
  DB<1> n
main​::(tmp​:3)​: while (<DATA>) {
  DB<1> n
main​::(tmp​:4)​: print;
  DB<1> n
bar
main​::(tmp​:3)​: while (<DATA>) {
  DB<1> n
Debugged program terminated. Use q to quit or R to restart,
  use O inhibit_exit to avoid stopping after program termination,
  h q, h R or h O to get additional info.
  DB<1>

Summary of my perl5 (revision 5 version 6 subversion 0) configuration​:
  Platform​:
  osname=MSWin32, osvers=4.0, archname=MSWin32-x86-multi-thread
  uname=''
  config_args='undef'
  hint=recommended, useposix=true, d_sigaction=undef
  usethreads=undef use5005threads=undef useithreads=define usemultiplicity=define
  useperlio=undef d_sfio=undef uselargefiles=undef
  use64bitint=undef use64bitall=undef uselongdouble=undef usesocks=undef
  Compiler​:
  cc='cl', optimize='-O1 -MD -DNDEBUG', gccversion=
  cppflags='-DWIN32'
  ccflags ='-O1 -MD -DNDEBUG -DWIN32 -D_CONSOLE -DNO_STRICT -DHAVE_DES_FCRYPT -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DPERL_MSVCRT_READFIX'
  stdchar='char', d_stdstdio=define, usevfork=false
  intsize=4, longsize=4, ptrsize=4, doublesize=8
  d_longlong=undef, longlongsize=8, d_longdbl=define, longdblsize=10
  ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=4
  alignbytes=8, usemymalloc=n, prototype=define
  Linker and Libraries​:
  ld='link', ldflags ='-nologo -nodefaultlib -release -libpath​:"C​:\Perl5.6.0\lib\CORE" -machine​:x86'
  libpth="C​:\Program Files\Microsoft Visual Studio\VC98\mfc\lib" "C​:\Program Files\Microsoft Visual Studio\VC98\lib" "c​:\program files\devstudio\vc\lib" "c​:\program files\devstudio\vc\mfc\lib" "%lib%" "C​:\Perl5.6.0\lib\CORE"
  libs= oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib netapi32.lib uuid.lib wsock32.lib mpr.lib winmm.lib version.lib odbc32.lib odbccp32.lib msvcrt.lib
  libc=msvcrt.lib, so=dll, useshrplib=yes, libperl=perl56.lib
  Dynamic Linking​:
  dlsrc=dl_win32.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' '
  cccdlflags=' ', lddlflags='-dll -nologo -nodefaultlib -release -libpath​:"C​:\Perl5.6.0\lib\CORE" -machine​:x86'

Characteristics of this binary (from libperl)​:
  Compile-time options​: MULTIPLICITY USE_ITHREADS PERL_IMPLICIT_CONTEXT PERL_IMPLICIT_SYS
  Locally applied patches​:
  ActivePerl Build 613
  Built under MSWin32
  Compiled at Mar 24 2000 12​:36​:25
  @​INC​:
  C​:/Perl5.6.0/lib
  C​:/Perl5.6.0/site/lib
  .

From @iabyn

(Just reviewing old bugs).

This appears to be fixed in bleedperl.

Regards,

Dave M.

@iabyn - Status changed from 'open' to 'resolved'