BBC(Bleadperl Breaks CPAN) Today: Devel::Profile

I have a coredump with bleadperl that starts with patch 22741:

    Change 22741 by davem@davem-percy on 2004/04/23 20:43:02
        Include variable names in "Use of uninitialized value" warnings

and happens during t/test2.t of JAW/Devel-Profile-1.05.tar.gz. This
test is probably uniq in that it does not contain a single variable
yet would like to complain about uninitialized variables in
Devel:/Profile.pm:

  % cat t/test2.t
  #!perl -d:Profile
  # -*- perl -*-

  sub foo {}
  sub bar {}
  sub baz {}

  foo();
  bar();
  baz();

  print "1..1\nok 1\n";

See the output run with bleadperl@22739:

  Running make test
  make[1]: Entering directory `/home/k/.cpan/build/Devel-Profile-1.05-EU03Kt'
  PERL_DL_NONLAZY=1 /home/src/perl/repoperls/installed-perls/perl/p4yYZ5s/perl-5.8.0@22739/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
  t/test1....ok                                                                
  t/test2....Use of uninitialized value in subtraction (-) at /home/k/.cpan/build/Devel-Profile-1.05-EU03Kt/blib/lib/Devel/Profile.pm line 157.
  Use of uninitialized value in subtraction (-) at /home/k/.cpan/build/Devel-Profile-1.05-EU03Kt/blib/lib/Devel/Profile.pm line 157.
  Use of uninitialized value in subtraction (-) at /home/k/.cpan/build/Devel-Profile-1.05-EU03Kt/blib/lib/Devel/Profile.pm line 157.
  t/test2....ok                                                                

Here is the backtrace.

Program terminated with signal 11, Segmentation fault.
#0  0x08148672 in S_varname (gv=0x0, gvtype=36 '$', targ=9, keyname=0x0, aindex=0, subscript_type=1) at sv.c:11789
11789           sv = *av_fetch(av, targ, FALSE);
(gdb) bt
#0  0x08148672 in S_varname (gv=0x0, gvtype=36 '$', targ=9, keyname=0x0, aindex=0, subscript_type=1) at sv.c:11789
#1  0x081490a0 in S_find_uninit_var (obase=0x8302810, uninit_sv=0x8395620, match=1 '\001') at sv.c:11896
#2  0x0814a1f7 in S_find_uninit_var (obase=0x8302828, uninit_sv=0x8395620, match=0 '\0') at sv.c:12115
#3  0x0814a268 in Perl_report_uninit (uninit_sv=0x8395620) at sv.c:12141
#4  0x0811f84f in Perl_sv_2nv (sv=0x8395620) at sv.c:2473
#5  0x08158929 in Perl_pp_subtract () at pp.c:1688
#6  0x080be253 in Perl_runops_debug () at dump.c:1923
#7  0x080f32ad in Perl_call_sv (sv=0x838f46c, flags=6) at perl.c:2693
#8  0x080fae43 in Perl_call_list (oldscope=8, paramList=0x82f9bfc) at perl.c:5157
#9  0x08070811 in S_process_special_blocks (fullname=0x82ff714 "BEGIN", gv=0x838f50c, cv=0x838f46c) at op.c:5574
#10 0x08070616 in Perl_newATTRSUB (floor=178, o=0x8390588, proto=0x0, attrs=0x0, block=0x8390568) at op.c:5547
#11 0x0806873f in Perl_utilize (aver=1, floor=178, version=0x0, idop=0x8308040, arg=0x0) at op.c:3766
#12 0x0827b2f9 in Perl_yyparse () at perly.y:656
#13 0x08194bba in S_doeval (gimme=0, startop=0x0, outside=0x0, seq=0) at pp_ctl.c:2927
#14 0x081984ce in Perl_pp_require () at pp_ctl.c:3413
#15 0x080be253 in Perl_runops_debug () at dump.c:1923
#16 0x080f32ad in Perl_call_sv (sv=0x82f99cc, flags=6) at perl.c:2693
#17 0x080fae43 in Perl_call_list (oldscope=2, paramList=0x82f9ae4) at perl.c:5157
#18 0x08070811 in S_process_special_blocks (fullname=0x82ff714 "BEGIN", gv=0x82f9a6c, cv=0x82f99cc) at op.c:5574
#19 0x08070616 in Perl_newATTRSUB (floor=27, o=0x82ff720, proto=0x0, attrs=0x0, block=0x82ff6e0) at op.c:5547
#20 0x0806873f in Perl_utilize (aver=1, floor=27, version=0x0, idop=0x82ff530, arg=0x0) at op.c:3766
#21 0x0827b2f9 in Perl_yyparse () at perly.y:656
#22 0x080f1614 in S_parse_body (env=0x0, xsinit=0x805ebd4 <xs_init>) at perl.c:2280
#23 0x080ef777 in perl_parse (my_perl=0x82e7008, xsinit=0x805ebd4 <xs_init>, argc=3, argv=0xbfeda954, env=0x0) at perl.c:1619
#24 0x0805eb88 in main (argc=3, argv=0xbfeda954, env=0xbfeda964) at perlmain.c:111

And here is my perl -V

Summary of my perl5 (revision 5 version 9 subversion 5) configuration:
  Platform:
    osname=linux, osvers=2.6.18-4-k7, archname=i686-linux-64int
    uname='linux k75 2.6.18-4-k7 #1 smp mon mar 26 17:57:15 utc 2007 i686 gnulinux '
    config_args='-Dprefix=/home/src/perl/repoperls/installed-perls/perl/pXNskkT/perl-5.8.0@31262 -Dinstallusrbinperl=n -Uversiononly -Doptimize=-g -des -Duse64bitint -Dusedevel'
    hint=recommended, useposix=true, d_sigaction=define
    useithreads=undef, usemultiplicity=undef
    useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
    use64bitint=define, use64bitall=undef, uselongdouble=undef
    usemymalloc=n, bincompat5005=undef
  Compiler:
    cc='cc', ccflags ='-DDEBUGGING -fno-strict-aliasing -pipe -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
    optimize='-g',
    cppflags='-DDEBUGGING -fno-strict-aliasing -pipe -I/usr/local/include'
    ccversion='', gccversion='4.1.2 20061115 (prerelease) (Debian 4.1.1-21)', gccosandvers=''
    intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=12345678
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
    ivtype='long long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
    alignbytes=4, prototype=define
  Linker and Libraries:
    ld='cc', ldflags =' -L/usr/local/lib'
    libpth=/usr/local/lib /lib /usr/lib /usr/lib64
    libs=-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lc
    perllibs=-lnsl -ldl -lm -lcrypt -lutil -lc
    libc=/lib/libc-2.3.6.so, so=so, useshrplib=false, libperl=libperl.a
    gnulibc_version='2.3.6'
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
    cccdlflags='-fPIC', lddlflags='-shared -g -L/usr/local/lib'


Characteristics of this binary (from libperl): 
  Compile-time options: DEBUGGING PERL_DONT_CREATE_GVSV PERL_MALLOC_WRAP
                        USE_64_BIT_INT USE_LARGE_FILES USE_PERLIO
  Locally applied patches:
        DEVEL
        patchaperlup: --branch='perl' --upto='31262' --start='17639'
  Built under linux
  Compiled at May 24 2007 10:37:21
  %ENV:
    PERL5_CPANPLUS_IS_RUNNING="1"
    PERL5_CPAN_IS_RUNNING="1"
  @INC:
    /home/src/perl/repoperls/installed-perls/perl/pXNskkT/perl-5.8.0@31262/lib/5.9.5/i686-linux-64int
    /home/src/perl/repoperls/installed-perls/perl/pXNskkT/perl-5.8.0@31262/lib/5.9.5
    /home/src/perl/repoperls/installed-perls/perl/pXNskkT/perl-5.8.0@31262/lib/site_perl/5.9.5/i686-linux-64int
    /home/src/perl/repoperls/installed-perls/perl/pXNskkT/perl-5.8.0@31262/lib/site_perl/5.9.5
    .

I hope this helps,
-- 
andreas

• BBC(Bleadperl Breaks CPAN) Today: Devel::Profile by andreas.koenig.7os6VVqR
• Re: BBC(Bleadperl Breaks CPAN) Today: Devel::Profile by Dave Mitchell