Version checking in XS bootstrap is optional

diff --git a/XSUB.h b/XSUB.h
index aaa4c22e1ab71a857753d6badb664e3854b8a643..d15af1f498aa2e462ff14048adc1aa16d6c4752f 100644 (file)
--- a/XSUB.h
+++ b/XSUB.h
@@ -50,10 +50,7 @@
                Sv = perl_get_sv(vn, FALSE);   /* XXX GV_ADDWARN */     \
            }                                                           \
        }                                                               \
-       if (!Sv || !SvOK(Sv))                                           \
-           croak("%s object can't find $%s::XS_VERSION or $%s::VERSION", \
-                 module, module, module);                              \
-       else if (strNE(XS_VERSION, SvPV(Sv, na)))                       \
+       if (Sv && (!SvOK(Sv) || strNE(XS_VERSION, SvPV(Sv, na))))       \
            croak("%s object version %s does not match $%s %s",         \
                  module, XS_VERSION, vn, SvPV(Sv, na));                \
     } STMT_END