E:\>perl C:\dev\loose\perl.segfault.320069.pl
STARTING
Neighbors
  Node=ARRAY(0x1abf0f8)
  Node=ARRAY(0x1abf1b8)
SHOULD BE THE LAST THING PRINTED.
DESTROYING Node=ARRAY(0x1abf0f8)
DESTROYING Link=ARRAY(0x1ab51bc)
DESTROYING Node=ARRAY(0x1abf1b8)

E:\>G:\perl\bin\perl C:\dev\loose\perl.segfault.320069.pl
STARTING
Neighbors
  Node=ARRAY(0x15d5014)
  Node=ARRAY(0x15d50d4)
SHOULD BE THE LAST THING PRINTED.
DESTROYING Node=ARRAY(0x15d50d4)
DESTROYING Link=ARRAY(0x15d4f30)
DESTROYING Node=ARRAY(0x15d5014)
DESTROYING IO::Handle=IO(0x1a41d80)

E:\>G:\perls\5.6.0\bin\perl C:\dev\loose\perl.segfault.320069.pl
STARTING
Neighbors
  Node=ARRAY(0x85d24f0)
  Node=ARRAY(0x85d258c)
SHOULD BE THE LAST THING PRINTED.
DESTROYING Node=ARRAY(0x85d24f0)
DESTROYING Link=ARRAY(0x85df600)
DESTROYING Node=ARRAY(0x85d258c)
DESTROYING IO::Handle=IO(0x85df564)
DESTROYING IO::Handle=IO(0x85dca54)
DESTROYING IO::Handle=IO(0x85dcb14)

E:\>echo NO SEGFAULT on 5.6.0
NO SEGFAULT on 5.6.0

E:\>G:\perls\5.6.1\bin\perl C:\dev\loose\perl.segfault.320069.pl
STARTING
Neighbors
  Node=ARRAY(0x1abf0f8)
  Node=ARRAY(0x1abf1b8)
SHOULD BE THE LAST THING PRINTED.
DESTROYING Node=ARRAY(0x1abf0f8)
DESTROYING Link=ARRAY(0x1ab5100)
DESTROYING Node=ARRAY(0x1abf1b8)

E:\>G:\perls\5.6.2\bin\perl C:\dev\loose\perl.segfault.320069.pl
STARTING
Neighbors
  Node=ARRAY(0x1a7f0f8)
  Node=ARRAY(0x1a7f1b8)
SHOULD BE THE LAST THING PRINTED.
DESTROYING Node=ARRAY(0x1a7f0f8)
DESTROYING Link=ARRAY(0x1a75364)
DESTROYING Node=ARRAY(0x1a7f1b8)
DESTROYING IO::Handle=IO(0x1a752c8)
DESTROYING IO::Handle=IO(0x1a77d34)
DESTROYING IO::Handle=IO(0x1a7522c)

E:\>echo NO SEGFAULT ON 5.6.2 either
NO SEGFAULT ON 5.6.2 either

E:\>G:\perls\5.8.1\bin\perl C:\dev\loose\perl.segfault.320069.pl
STARTING
Neighbors
  Node=ARRAY(0x15d5050)
  Node=ARRAY(0x15d5110)
SHOULD BE THE LAST THING PRINTED.
DESTROYING Link=ARRAY(0x1a6f05c)
DESTROYING Node=ARRAY(0x15d5050)
DESTROYING Node=ARRAY(0x15d5110)
DESTROYING IO::Handle=IO(0x1a41eb4)
DESTROYING IO::Handle=IO(0x1a41f74)
DESTROYING IO::Handle=IO(0x1a41fe0)

E:\>echo no segfault
no segfault

E:\>G:\perls\5.8.2\bin\perl C:\dev\loose\perl.segfault.320069.pl
STARTING
Neighbors
  Node=ARRAY(0x15d5060)
  Node=ARRAY(0x15d5120)
SHOULD BE THE LAST THING PRINTED.
DESTROYING Link=ARRAY(0x1a6c0bc)
DESTROYING Node=ARRAY(0x15d5060)
DESTROYING Node=ARRAY(0x15d5120)
DESTROYING IO::Handle=IO(0x1a44ff4)
DESTROYING IO::Handle=IO(0x1a41f1c)
DESTROYING IO::Handle=IO(0x1a41fdc)

E:\>echo no_segfault
no_segfault

E:\>
E:\>G:\perls\5.005_03\bin\perl C:\dev\loose\perl.segfault.320069.pl
STARTING
Neighbors
  Node=ARRAY(0x365820)
  Node=ARRAY(0x365844)
SHOULD BE THE LAST THING PRINTED.
DESTROYING Node=ARRAY(0x365820)
DESTROYING Link=ARRAY(0x36f760)
DESTROYING Node=ARRAY(0x365844)
DESTROYING IO::Handle=IO(0x36f6dc)
DESTROYING IO::Handle=IO(0x36c8ec)
DESTROYING IO::Handle=IO(0x36c9ac)

E:\>echo nosegfault
nosegfault
E:\>G:\perls\5.6.1d\bin\perl C:\dev\loose\perl.segfault.320069.pl
STARTING
Neighbors
  Node=ARRAY(0x1a7f118)
  Node=ARRAY(0x1a7f1d8)
SHOULD BE THE LAST THING PRINTED.
DESTROYING Node=ARRAY(0x1a7f118)
DESTROYING Link=ARRAY(0x1a75384)
DESTROYING Node=ARRAY(0x1a7f1d8)
DESTROYING IO::Handle=IO(0x1a752e8)
DESTROYING IO::Handle=IO(0x1a77d54)
DESTROYING IO::Handle=IO(0x1a7524c)

E:\>echo nosegfault
nosegfault