Remove ~~ from autodoc.pl

[book]

Following up on #20337, I've looked for and only found one use of ~~ in the core scripts and modules.

This patch replaces the ~~ with equivalent code.

[leonerd]

Needs a = 0

[book]

It seems I can't use List::Util, because autodoc.pl is run via miniperl.

./miniperl -Ilib autodoc.pl
Can't locate List/Util.pm in @INC (you may need to install the List::Util module) ...

[leonerd]

Turns out I can't use List::Util, because autodoc.pl is run via miniperl.

Ah; yeah that is unfortunate. You could inline a little helper version commented:

# Can't use List::Util because this runs via miniperl
sub any(&@) {
  my $code = shift;
  $code->($_) or return 0 for @_;
  return 1;
}

Or failing that, write the test in some other way. For a one-off it might be shorter to inline some other logic, such as your counting code from before.

[leonerd]

LGTM