From: Chip Salzenberg <chip@atlantic.net>
Date: Tue, 28 Jan 1997 11:10:07 +0000 (+1200)
Subject: Version checking in XS bootstrap is optional
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=255c1af795e05405858a49f2959b3eb083883987;p=p5sagit%2Fp5-mst-13.2.git

Version checking in XS bootstrap is optional
---

diff --git a/XSUB.h b/XSUB.h
index aaa4c22..d15af1f 100644
--- 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