Patch for Object subroutines

Patch for Object subroutines

The following script segfaults with _17 ():

#!./perl
my $x;

BEGIN {
  $x = sub {print "in sub.\n"; undef $x};
  sub X::DESTROY { print "Destroying.\n"}
  bless $x, 'X';
}

# At this moment refcount of $x and &$x are 1 (we need a closure for this
# because of a sub leak).

&$x();
print "x: `$x'.\n";