Select Code to Download

delete $machines{+shift};

FSA::Rules=HASH(0x31cc818) [refcount 13] is
+- referenced by REF(0x31d8740) [refcount 1], which is
|  the member 'machine' of HASH(0x31cc788) [refcount 1],

my (%machines, %states);
sub new {
...
        $fsa->{table}{$state} = $obj;
        push @{$fsa->{ord}}, $obj;
        $states{$obj} = $def;

freeing myself
after cleanup
...
ListParser is gone
End of program
daemon is gone