[ID 20010112.004] Debugger using incorrect scope

This is a bug report for perl from dbwhite@btv.ibm.com,
generated with the help of perlbug 1.26 running under perl 5.00502.


-----------------------------------------------------------------
[Please enter your report here]

gunzip and untar the (hopefully) attached problem.tar.gz
Apply breakpoints on lines 71, 75 and 77 of problem
Run "problem BP2590_B.leakage.leakout.Z"

At each of the breakpoints, "x @SortedRecords"
Notice that at lines 71 and 77, a 64 element array is displayed,
while at line 75 an empty array is incorrectly displayed.

perl Camel 3rd Edition, page 116 indicates that "a while loop
never implicitly localizes any variables in its test condition"
so @SortedRecords should be in scope at line 75.

Code works correctly, but debugger is displaying incorrect
variable information at line 75.

[Please do not change anything below this line]
-----------------------------------------------------------------

---
Site configuration information for perl 5.00502:

Configured by v2matt at Sat Jan 23 10:14:33 EST 1999.

Summary of my perl5 (5.0 patchlevel 5 subversion 2) configuration:
  Platform:
    osname=aix, osvers=4.1.4.0, archname=aix
    uname='aix compost-4 1 4 000105209100 '
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef useperlio=undef d_sfio=undef
  Compiler:
    cc='cc', optimize='-O3', gccversion=
    cppflags='-qstrict -D_ALL_SOURCE -D_ANSI_C_SOURCE -D_POSIX_SOURCE -qmaxmem=8192 -I/usr/prod/contrib/include'
    ccflags ='-qstrict -D_ALL_SOURCE -D_ANSI_C_SOURCE -D_POSIX_SOURCE -qmaxmem=8192  -I/usr/prod/contrib/include'
    stdchar='unsigned char', d_stdstdio=define, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=8
    alignbytes=8, usemymalloc=n, prototype=define
  Linker and Libraries:
    ld='ld', ldflags ='-L/usr/prod/contrib/lib'
    libpth=/lib /usr/lib /usr/ccs/lib /usr/prod/contrib/lib
    libs=-ldbm -ldb -lld -lm -lc -lbsd -lPW
    libc=/lib/libc.a, so=a, useshrplib=false, libperl=libperl.a
  Dynamic Linking:
    dlsrc=dl_aix.xs, dlext=so, d_dlsymun=undef, ccdlflags='-bE:perl.exp'
    cccdlflags=' ', lddlflags='-bhalt:4 -bM:SRE -bI:$(PERL_INC)/perl.exp -bE:$(BASEEXT).exp -b noentry -lc -L/usr/prod/contrib/lib'

Locally applied patches:


---
@INC for perl 5.00502:
    /afs/btv.ibm.com/u5/dbwhite/lib
    /usr/prod/contrib/lib/perl-5.00502/aix
    /usr/prod/contrib/lib/perl-5.00502
    /usr/prod/contrib/lib/perl-5.00502/site_perl/aix
    /usr/prod/contrib/lib/perl-5.00502/site_perl
    .

---
Environment for perl 5.00502:
    HOME=/afs/btv.ibm.com/u5/dbwhite
    LANG=en_US
    LC__FASTMSG=true
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PATH=.::/usr/prod/vendor/xfm556/bin:/afs/btv.ibm.com/u5/dbwhite/Reliability_Models/postasx/bin:/afs/btv/u/dbwhite/checkout/NDRgen/bin:/afs/btv/data/a29v/test/NDRgen/bin:/afs/btv/data/asicgold/ndr_dev/dev/bin:/usr/local/bin:/afs/btv.ibm.com/u5/dbwhite/bin:/usr/bin:/etc:/usr/sbin:/usr/ucb:/usr/dt/bin:/usr/bin/X11:/sbin:/usr/afsws/bin:/usr/afsws/etc:/usr/prod/local/bin:/usr/prod/contrib/bin:/usr/prod/tools/bin:/usr/ibmcxx/bin:.:/afs/btv.ibm.com/data/n37v/software/gnu-aix41/bin:/afs/btv.ibm.com/data/n37v/software/gnu-aix32/bin:/usr/prod/contrib/bin:/afs/btv/data/g46/cmvctools/bin:/afs/btv/data/g46/cmvctools/functions:/usr/lpp/cmvc/bin:/usr/lpp/cmvc/samples:/usr/lpp/kapture/bin:/afs/btv/data/a29tools/cadence/cds434/9502/tools/dfII/bin:/afs/btv/data/a29tools/cadence/cds434/9502/tools/bin:/afs/btv/data/a29tools/cadence/bin:/usr/prod/local/bin:/afs/btv/common/prod/local/vendor/123/123.v12/rs6000/bin:/afs/btv/common/prod/local/vendor/saseco/sas611:/usr/lpp/SoftWindows2/bin:/afs/b!
tv!
/data/a29tools/iss/prod/code:/afs/btv/data/a29tools/iss/prod/scripts
    PERL5LIB=/afs/btv.ibm.com/u5/dbwhite/lib
    PERL_BADLANG (unset)
    SHELL=/bin/ksh

• [ID 20010112.004] Debugger using incorrect scope by dbwhite