t/perldoc.t: fix TODO logic in todofaster