Mine

                if ($constants->{draconian_charrefs}) {
                        if (!$constants->{good_entity}{$entity}) {
                                if (defined $entity2char{$entity}) {
                                        $decimal = ord $entity2char{$entity};
                                        $ok = $ansi_to_ascii{$decimal} ? 2 : 0;
                                } else {
                                        $ok = 0;
                                }
                        }
                } else {
                        $ok = 0 if $constants->{bad_entity}{$entity}
                                || ($constants->{draconian_charset} && ! exists $entity2char{$entity});
                }