From: Rafael Garcia-Suarez <rgs@consttype.org>
Date: Fri, 15 Jan 2010 10:29:47 +0000 (+0100)
Subject: Qualify pointer arguments of prescan_version in embed.fnc
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5747a2f6732071d6477abc45c2e06d557f1a6c8a;p=p5sagit%2Fp5-mst-13.2.git

Qualify pointer arguments of prescan_version in embed.fnc
---

diff --git a/embed.fnc b/embed.fnc
index abfa92b..d61ba8d 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -746,7 +746,8 @@ Ap	|char*	|scan_vstring	|NN const char *s|NN const char *const e \
 				|NN SV *sv
 Apd	|const char*	|scan_version	|NN const char *s|NN SV *rv|bool qv
 Apd	|const char*	|prescan_version	|NN const char *s\
-	|bool strict|NULLOK const char** errstr|bool *sqv|int *ssaw_period|int *swidth|bool *salpha
+	|bool strict|NULLOK const char** errstr|NULLOK bool *sqv\
+	|NULLOK int *ssaw_decimal|NULLOK int *swidth|NULLOK bool *salpha
 Apd	|SV*	|new_version	|NN SV *ver
 Apd	|SV*	|upg_version	|NN SV *ver|bool qv
 Apd	|bool	|vverify	|NN SV *vs
diff --git a/proto.h b/proto.h
index 223086c..4a343be 100644
--- a/proto.h
+++ b/proto.h
@@ -2383,7 +2383,7 @@ PERL_CALLCONV const char*	Perl_scan_version(pTHX_ const char *s, SV *rv, bool qv
 #define PERL_ARGS_ASSERT_SCAN_VERSION	\
 	assert(s); assert(rv)
 
-PERL_CALLCONV const char*	Perl_prescan_version(pTHX_ const char *s, bool strict, const char** errstr, bool *sqv, int *ssaw_period, int *swidth, bool *salpha)
+PERL_CALLCONV const char*	Perl_prescan_version(pTHX_ const char *s, bool strict, const char** errstr, bool *sqv, int *ssaw_decimal, int *swidth, bool *salpha)
 			__attribute__nonnull__(pTHX_1);
 #define PERL_ARGS_ASSERT_PRESCAN_VERSION	\
 	assert(s)