Use Perinci::Sub::Util's gen_modified_sub