Jak mogę całkowicie usunąć pakiet w Perlu?

Question

Jak całkowicie usunąć pakiet w Perlu? Oznacza to nie tylko zmienne pakietu, ale także wszystkie magiczne tabele, które Perl aktualizuje, aby obsłużyć zmiany dziedziczenia i inne rzeczy.

Ten prosty test:

use warnings; use strict; 
use Test::LeakTrace; 
use Symbol 'delete_package'; 

leaktrace { 
    package test; 
    our $x = 1; 

    package main; 
    delete_package 'test'; 
}; 

wyniki w następujący wynik:

leaked ARRAY(0x81c930) from /lib/perl5/5.10.1/Symbol.pm line 166. 
leaked HASH(0x827760) from /lib/perl5/5.10.1/Symbol.pm line 166. 
leaked SCALAR(0x821920) from /lib/perl5/5.10.1/Symbol.pm line 166. 

z flagą -verbose dla leaktrace skutkuje ekranów danych, które można zamieścić na życzenie.

Co gorzej, jeśli linia our @ISA = 'main'; dodaje do pakietu test:

leaked ARRAY(0x81cd10) from so.pl line 32. 
leaked SCALAR(0x81c930) from so.pl line 32. 
leaked ARRAY(0x8219d0) from so.pl line 32. 
leaked HASH(0x8219c0) from so.pl line 32. 
leaked SCALAR(0x8219b0) from so.pl line 32. 
leaked HASH(0x8219a0) from so.pl line 32. 
leaked SCALAR(0x821970) from /lib/perl5/5.10.1/Symbol.pm line 161. 
leaked HASH(0x821950) from so.pl line 32. 
leaked SCALAR(0x821940) from so.pl line 32. 

Linia 32 jest gdzie our @ISA jest.

Aby zilustrować, że to rzeczywiście są przecieki, a nie tylko hałas od tłumacza:

my $num = 0; 
while (1) { 
    no strict 'refs'; 
    @{$num.'::ISA'} = 'main'; 
    delete_package $num++; 
} 

zje pamięci ze stałą szybkością

tak, to czy istnieje lepszy sposób, aby pozbyć się pakietu niż symbol delete_package? Czy jest coś jeszcze, co muszę zrobić, aby mu w tym pomóc?

Widziałem to samo zachowanie w 5.8.8, 5.10.1 i 5.12

Answer 1

Więc to jest błąd w Perl, zgłoszony jeden nawet jak odkryte. Bez tego, wydaje się, że jedynym sposobem uniknięcia tych przecieków jest wybranie innego podejścia do rozwiązania problemu.

Dlaczego potrzebujesz pół-anonimowego pakietu zamiast na przykład zamknięcia? Są one dość łatwe, aby nie przeciekać, a przy odrobinie kreatywności nadal można zaimplementować prawie każdy zewnętrzny interfejs na ich podstawie, na przykład poprzez błogosławieństwo swoich zamkniętych coderefów i zapewnić im metody, zapewniając przeciążenie dla nich, itp.