Check for global destruction in neatsvpv

use PL_dirty to ensure perl isn't in global destruction before firing off magic
FETCH / mg_get.