update XS code for new ppport

PPPort now includes the PERL_VERSION_GE macro for easier version
comparisons, as well as providing backward compatibility for dVAR and
XSPROTO.

mop.c

@@ -10,7 +10,7 @@ mop_call_xs (pTHX_ XSPROTO(subaddr), CV *cv, SV **mark)
     PUTBACK;
 }
 
-#if PERL_VERSION >= 10
+#if PERL_VERSION_GE(5,10,0)
 UV
 mop_check_package_cache_flag (pTHX_ HV *stash)
 {
@@ -252,11 +252,8 @@ mop_prehash_keys ()
 
 XS_EXTERNAL(mop_xs_simple_reader)
 {
-#ifdef dVAR
-    dVAR; dXSARGS;
-#else
+    dVAR;
     dXSARGS;
-#endif
     register HE *he;
     mop_prehashed_key_t key = (mop_prehashed_key_t)CvXSUBANY(cv).any_i32;
     SV *self;

mop.h

@@ -18,10 +18,6 @@
 
 #define MOP_CALL_BOOT(name)  mop_call_xs(aTHX_ name, cv, mark);
 
-#ifndef XSPROTO
-#define XSPROTO(name) XS_EXTERNAL(name)
-#endif
-
 #ifndef CvISXSUB
 #define CvISXSUB(cv)  (CvXSUB(cv) ? TRUE : FALSE)
 #endif