libb-hooks-op-check-entersubforcv-perl