[ID 20000322.015] Coercion of Array ref to Hash ref fails withnested array contents

This is a bug report for perl from twalters@virage.com,
generated with the help of perlbug 1.26 running under perl 5.00503.


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

The following command causes perl to hang for a long time, adding lots
of undefs to a nested array:

perl -e 'use Data::Dumper; $h->{r} = [{a=>[{},{}]},{a=>[{}]}]; print
Dumper($h);$h->{r}->{a}="d";print Dumper($h)'

# Outputs:

$VAR1 = {
          'r' => [
                   {
                     'a' => [
                              {},
                              {}
                            ]
                   },
                   {
                     'a' => [
                              {}
                            ]
                   }
                 ]
        };

# After a wait of several minutes the modified array is written....

$VAR1 = {
          'r' => [
                   {
                     'a' => [
                              {},
                              {}
                            ]
                   },
                   {
                     'a' => [
                              {}
                            ]
                   },
                   undef,
                   undef,
                   undef,
                   undef,
                   undef,
                   undef,
                   undef,
                   undef,
                   undef,
                   undef,
                   undef,
                   undef,
                   undef,
                   undef,
                   undef,
                   undef,
                   undef,
                   undef,
                   undef,
                   undef,
                   undef,
                   undef,
                   undef,
                   undef,
                   undef,
                   undef,
                   undef,
                   undef,
                   undef,
[ ... continues indefinitely ... ]

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

---
Site configuration information for perl 5.00503:

Configured by twalters at Wed Dec 22 14:11:37 PST 1999.

Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration:
  Platform:
    osname=solaris, osvers=2.7, archname=sun4-solaris
    uname='sunos tokyo 5.7 generic sun4u sparc sunw,ultra-2 '
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef useperlio=undef d_sfio=undef
  Compiler:
    cc='cc', optimize='-fast', gccversion=
    cppflags=''
    ccflags =''
    stdchar='char', d_stdstdio=define, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
    alignbytes=8, usemymalloc=y, prototype=define
  Linker and Libraries:
    ld='cc', ldflags =''
    libpth=/usr/local/lib /lib /usr/lib /usr/ccs/lib
    libs=-lsocket -lnsl -ldl -lm -lc -lcrypt
    libc=/lib/libc.so, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
    cccdlflags='-KPIC', lddlflags='-G'

Locally applied patches:


---
@INC for perl 5.00503:
    /export/home2/twalters/Dev/Apps/VSS/lib
    /virage/people/twalters/lib/blib/lib
    /virage/people/twalters/lib/blib/arch
    /usr/local/lib/perl5/5.00503/sun4-solaris
    /usr/local/lib/perl5/5.00503
    /usr/local/lib/perl5/site_perl/5.005/sun4-solaris
    /usr/local/lib/perl5/site_perl/5.005
    /usr/local/lib/perl5/5.00503/sun4-solaris
    /usr/local/lib/perl5/5.00503
    /usr/local/lib/perl5/site_perl/5.005/sun4-solaris
    /usr/local/lib/perl5/site_perl/5.005
    .

---
Environment for perl 5.00503:
    HOME=/virage/people/twalters
    LANG (unset)
    LANGUAGE (unset)

LD_LIBRARY_PATH=/export/home2/twalters/Dev/Local-lib/debug/solaris:/usr/local/lib:/export/home2/twalters/Dev/Local-lib/debug/solaris:/usr/local/lib:/export/home2/twalters/Dev/Local-lib/debug/solaris:/usr/local/lib:/export/home2/twalters/Dev/Local-lib/debug/solaris:/usr/local/lib:/export/home2/twalters/Dev/Local-lib/debug/solaris:/usr/local/lib::/usr/openwin/lib:/opt/SUNWits/Graphics-sw/xil/lib:/usr/galaxy/lib

    LOGDIR (unset)

PATH=/virage/people/twalters/bin:/export/home2/twalters/Dev/bin:/virage/people/twalters/bin:/virage/people/twalters/bin:/virage/people/twalters/bin:/virage/people/twalters/bin:/virage/bin/solaris:/virage/bin:/usr/local/bin/:/usr/bin:.:/usr/etc:/opt/SUNWspro/bin:/usr/ccs/bin:/usr/openwin/bin:/usr/sbin:/usr/ucb:/usr/local/illustra/bin:/usr/local/3dviewnix/PROCESS/BIN

PERLLIB=/export/home2/twalters/Dev/Apps/VSS/lib:/virage/people/twalters/lib/blib/lib:/virage/people/twalters/lib/blib/arch:/usr/local/lib/perl5/5.00503/sun4-solaris:/usr/local/lib/perl5/5.00503:/usr/local/lib/perl5/site_perl/5.005/sun4-solaris:/usr/local/lib/perl5/site_perl/5.005

    PERL_BADLANG (unset)
    SHELL=/bin/tcsh

• [ID 20000322.015] Coercion of Array ref to Hash ref fails withnested array contents by Tim Walters
• Re: [ID 20000322.015] Coercion of Array ref to Hash ref fails with nested array contents by Gurusamy Sarathy