fix op.c under -DPERL_GLOBAL_STRUCT