In case a slightly more compact test case will help:

    package Foo;

    sub new {
        my $self = {};
        &{ sub { $self } };  # This is the culprit; no idea why
        return bless $self =>  'Foo';
    }
    sub DESTROY { warn "destroying\n"; }

    package main;

    { my $foo = new Foo; }
    warn "one down\n";

In case you don't have the last message, compare output in and out
of the debugger to see the bug in 5.005_03.

Andrew