Make compatible with bleadperl (via Father Chrysostomous)
Restore compatibility with perl 5.8
convert to PERL_NO_GET_CONTEXT