Returns the equivalent of ${^GLOBAL_PHASE} eq DESTRUCT for older perls
