Comment 5 for bug 2004521

Moving the logic to Perl wouldn't be quick to do, as the core hold permit checks are in-DB and would require a fair amount of work to translate back to Perl.

I'm working on a variation of the WIP that should improve on it (although the current WIP should significantly help).