А придумал шимми сумасшедший, го-во-рят

Updated:

sna4ala tak:

my %missing_fields = map(map({$_ => 1} @$_), @{$data->{mandatory_fields}});

Potom tak:

	local *register = sub
	{
	    my ($rList, $idx) = @_;
	    my $sym = $rList->[$idx];
	    $rhState->{TmpData}->{ref($sym)} = {symbol => $sym, index => $idx};

	    map({map(delete($missing_fields{$_}), @$_) if grep($sym->isa($_), @$_)} @{$data->{mandatory_fields}});
	};

A potom pobeda:

return 1 unless keys(%missing_fields);

Kone4no, mozhno ew,e ubrat' koe-4to. Kto-to u4il nas, 4to net takoj programmy, kotoruju nel'zja bylo by sokratit' xotja by na 2 bajta.