Provides function returning the equivalent of ${^GLOBAL_PHASE} eq 'DESTRUCT' for older perls.