1..36
ok 1
ok 2
ok 3
ok 4
ok 5
ok 6
ok 7
ok 8
ok 9
ok 10
ok 11
ok 12
ok 13
ok 14
ok 15
ok 16
ok 17
ok 18
ok 19
ok 20
ok 21
ok 22
ok 23
ok 24
ok 25
ok 26
ok 27
ok 28
ok 29
ok 30
ok 31
ok 32
ok 33
ok 34
# PROG: 
######## [ID 20020301.011] Core dump in 'leavetry' in 5.7.2
  my @a;
  
  sub X::TIEARRAY { bless {}, 'X' }

  sub X::SPLICE {
    do '/dev/null';
    die;
  }

  tie @a, 'X';
  eval { splice(@a) };
  print "ok\n"

# EXPECTED:
ok
# GOT:
ok
ok
# STATUS: 0
not ok 35 - fresh_perl - Core dump in 'leavetry' # TODO Not fixed yet
# Failed at ./test.pl line 541
ok 36