[perl #27966] [BUG] PerlHash/_dumper interaction

[via RT]

# New Ticket Created by  Will Coleda 
# Please include the string:  [perl #27966]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org:80/rt3/Ticket/Display.html?id=27966 >



.sub main
   .param pmc argv

   $S0 = argv[1]
   $I2 = $S0

   $P2 = new PerlHash
   $I0 = 1
loop:
   if $I0 > $I2 goto done
   $P1 = new PerlUndef
   $S0 = $I0
   $P2[$S0] = $P1
   inc $I0
   goto loop

done:
   _dumper($P2)

   end
.end

.include "library/dumper.imc"

--
When run with an arg of 173, generates: Detected hash corruption at 
hash 0x9a6780 entries 0
but with an arg of 172, runs to completion.

Changing the code a bit allows the number to change.

Removing the call to _dumper lets me specify a number upwards of 
1000000 with no problem.

--
Will "Coke" Coleda                                    will at coleda 
dot com