Perl_pack_cat() is a mathom too!

p4raw-id: //depot/perl@28031

diff --git a/mathoms.c b/mathoms.c
index 4dd4584895351873ca81ce161f3477bf79f0f084..206bcfbe6fb50048c884a305d2886b21038865cb 100644 (file)
--- a/mathoms.c
+++ b/mathoms.c
@@ -1261,6 +1261,24 @@ Perl_unpack_str(pTHX_ const char *pat, const char *patend, const char *s,
 
     return unpackstring(pat, patend, s, strend, flags);
 }
+
+/*
+=for apidoc pack_cat
+
+The engine implementing pack() Perl function. Note: parameters next_in_list and
+flags are not used. This call should not be used; use packlist instead.
+
+=cut
+*/
+
+void
+Perl_pack_cat(pTHX_ SV *cat, const char *pat, const char *patend, register SV **beglist, SV **endlist, SV ***next_in_list, U32 flags)
+{
+    PERL_UNUSED_ARG(next_in_list);
+    PERL_UNUSED_ARG(flags);
+
+    packlist(cat, pat, patend, beglist, endlist);
+}
 #endif /* NO_MATHOMS */
 
 /*

diff --git a/pod/perlapi.pod b/pod/perlapi.pod
index 88f64435e2c2905769920546b094204c7d742ca8..9cbf85472e5b0c34221eb4ca8f0fe260e69c323c 100644 (file)
--- a/pod/perlapi.pod
+++ b/pod/perlapi.pod
@@ -768,6 +768,17 @@ See L<gv_fetchmethod_autoload>.
 =for hackers
 Found in file mathoms.c
 
+=item pack_cat
+X<pack_cat>
+
+The engine implementing pack() Perl function. Note: parameters next_in_list and
+flags are not used. This call should not be used; use packlist instead.
+
+       void    pack_cat(SV *cat, const char *pat, const char *patend, SV **beglist, SV **endlist, SV ***next_in_list, U32 flags)
+
+=for hackers
+Found in file mathoms.c
+
 =item sv_2pvbyte_nolen
 X<sv_2pvbyte_nolen>
 
@@ -1035,17 +1046,6 @@ The engine implementing pack() Perl function.
 =for hackers
 Found in file pp_pack.c
 
-=item pack_cat
-X<pack_cat>
-
-The engine implementing pack() Perl function. Note: parameters next_in_list and
-flags are not used. This call should not be used; use packlist instead.
-
-       void    pack_cat(SV *cat, const char *pat, const char *patend, SV **beglist, SV **endlist, SV ***next_in_list, U32 flags)
-
-=for hackers
-Found in file pp_pack.c
-
 =item unpackstring
 X<unpackstring>
 

diff --git a/pp_pack.c b/pp_pack.c
index 6e11eb2c3efb76e100f1f21fd160907703715397..61af698bb21894e164e21b34853a322b5c95d29a 100644 (file)
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -2358,28 +2358,6 @@ S_div128(pTHX_ SV *pnum, bool *done)
     return (m);
 }
 
-/*
-=for apidoc pack_cat
-
-The engine implementing pack() Perl function. Note: parameters next_in_list and
-flags are not used. This call should not be used; use packlist instead.
-
-=cut
-*/
-
-void
-Perl_pack_cat(pTHX_ SV *cat, const char *pat, const char *patend, register SV **beglist, SV **endlist, SV ***next_in_list, U32 flags)
-{
-    tempsym_t sym;
-    PERL_UNUSED_ARG(next_in_list);
-    PERL_UNUSED_ARG(flags);
-
-    TEMPSYM_INIT(&sym, pat, patend, FLAG_PACK);
-
-    (void)pack_rec( cat, &sym, beglist, endlist );
-}
-
-
 /*
 =for apidoc packlist