This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Change sv_eq_pvn_flags()'s parameter pvlen from I32 to STRLEN.
authorNicholas Clark <nick@ccl4.org>
Fri, 15 Jul 2011 12:46:30 +0000 (14:46 +0200)
committerNicholas Clark <nick@ccl4.org>
Fri, 15 Jul 2011 12:46:30 +0000 (14:46 +0200)
Change its return type to bool from I32, as it only returns truth or falsehood.

pad.c

diff --git a/pad.c b/pad.c
index 52bf354..43011eb 100644 (file)
--- a/pad.c
+++ b/pad.c
@@ -173,8 +173,8 @@ This is basically sv_eq_flags() in sv.c, but we avoid the magic
 and bytes checking.
 */
 
-STATIC I32
-sv_eq_pvn_flags(pTHX_ const SV *sv, const char* pv, const I32 pvlen, const U32 flags) {
+static bool
+sv_eq_pvn_flags(pTHX_ const SV *sv, const char* pv, const STRLEN pvlen, const U32 flags) {
     if ( (SvUTF8(sv) & SVf_UTF8 ) != (flags & SVf_UTF8) ) {
         const char *pv1 = SvPVX_const(sv);
         STRLEN cur1     = SvCUR(sv);