perl.pod: Squash double space

[perl5.git] / pp_pack.c

diff --git a/pp_pack.c b/pp_pack.c
index a2a5c68..cc1e637 100644 (file)
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -1190,8 +1190,10 @@ first_symbol(const char *pat, const char *patend) {
 =for apidoc unpackstring
 
 The engine implementing unpack() Perl function. C<unpackstring> puts the
-extracted list items on the stack and returns the number of elements.
+extracted list items on the @_ stack and returns the number of elements.
 Issue C<PUTBACK> before and C<SPAGAIN> after the call to this function.
+Unlike L</call_pv>, do not do a C<PUSHMARK>. This function takes no parameters
+on the @_ stack.
 
 =cut */
 
@@ -1470,7 +1472,7 @@ S_unpack_rec(pTHX_ tempsym_t* symptr, const char *s, const char *strbeg, const c
                if (utf8 && (symptr->flags & FLAG_WAS_UTF8)) {
                    for (ptr = s+len-1; ptr >= s; ptr--)
                        if (*ptr != 0 && !UTF8_IS_CONTINUATION(*ptr) &&
-                           !is_utf8_space((U8 *) ptr)) break;
+                           !isSPACE_utf8(ptr)) break;
                    if (ptr >= s) ptr += UTF8SKIP(ptr);
                    else ptr++;
                    if (ptr > s+len)
@@ -3115,7 +3117,7 @@ extern const float _float_constants[];
                else afloat = (float) anv;
 }
 #else /* __VOS__ */
-# if defined(VMS) && !defined(__IEEE_FP)
+# if defined(VMS) && !defined(_IEEE_FP)
                /* IEEE fp overflow shenanigans are unavailable on VAX and optional
                 * on Alpha; fake it if we don't have them.
                 */
@@ -3154,7 +3156,7 @@ extern const double _double_constants[];
                else adouble = (double) anv;
 }
 #else /* __VOS__ */
-# if defined(VMS) && !defined(__IEEE_FP)
+# if defined(VMS) && !defined(_IEEE_FP)
                /* IEEE fp overflow shenanigans are unavailable on VAX and optional
                 * on Alpha; fake it if we don't have them.
                 */