dougm 02/05/24 10:47:28
Modified: xs/maps apr_functions.map
xs/APR/Util APR__Util.h
Log:
wrap APR::password_validate to be more perl-ish (as stas suggested),
rather than return apr_status_t, return true if valid, false otherwise
Revision Changes Path
1.43 +1 -1 modperl-2.0/xs/maps/apr_functions.map
Index: apr_functions.map
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/maps/apr_functions.map,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -r1.42 -r1.43
--- apr_functions.map 23 May 2002 00:43:57 -0000 1.42
+++ apr_functions.map 24 May 2002 17:47:27 -0000 1.43
@@ -444,7 +444,7 @@
MODULE=APR::Util PACKAGE=guess
apr_filename_of_pathname
apr_password_get
- apr_password_validate
+ int:apr_password_validate | mpxs_
-apr_snprintf
-apr_vformatter
-apr_vsnprintf
1.2 +6 -0 modperl-2.0/xs/APR/Util/APR__Util.h
Index: APR__Util.h
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/APR/Util/APR__Util.h,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- APR__Util.h 30 Jan 2002 05:21:52 -0000 1.1
+++ APR__Util.h 24 May 2002 17:47:28 -0000 1.2
@@ -1,3 +1,9 @@
+static MP_INLINE int mpxs_apr_password_validate(pTHX_ const char *passwd,
+ const char *hash)
+{
+ return apr_password_validate(passwd, hash) == APR_SUCCESS;
+}
+
static MP_INLINE void mpxs_apr_strerror(pTHX_ SV *sv, SV *arg)
{
apr_status_t statcode = mp_xs_sv2_status(arg);
