From: Philip Newton <pne@cpan.org>
Date: Tue, 18 Mar 2003 06:19:30 +0000 (+0100)
Subject: Minor updates of Wolfgang's pack patch
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=921106c83a96a1e3c3529657fd119ae4e7808b60;p=p5sagit%2Fp5-mst-13.2.git

Minor updates of Wolfgang's pack patch

Subject: Re: pack changes and related fixes
Message-ID: <tb9d7vo1ocb14o73lnhabbmh5bsjoe5m46@4ax.com>

p4raw-id: //depot/perl@19020
---

diff --git a/embed.fnc b/embed.fnc
index c288f72..67c1a94 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -15,12 +15,12 @@
 :	p		function has a Perl_ prefix
 :	f		function takes printf style format string, varargs
 :	r		function never returns
-:       o		has no compatibility macro (#define foo Perl_foo)
-:       x		not exported
-:       X		explicitly exported
-:       M		may change
-:       E		visible to Perl core extensions
-:       b		binary backward compatibility; function is a macro
+:	o		has no compatibility macro (#define foo Perl_foo)
+:	x		not exported
+:	X		explicitly exported
+:	M		may change
+:	E		visible to Perl core extensions
+:	b		binary backward compatibility; function is a macro
 :			but has also Perl_ implementation (which is exported)
 :
 : Individual flags may be separated by whitespace.
@@ -947,8 +947,8 @@ Ap	|void	|sys_intern_clear
 Ap	|void	|sys_intern_init
 #endif
 
-Ap |char * |custom_op_name|OP* op
-Ap |char * |custom_op_desc|OP* op
+Ap	|char *	|custom_op_name	|OP* op
+Ap	|char *	|custom_op_desc	|OP* op
 
 #if defined(PERL_COPY_ON_WRITE)
 pMX	|int	|sv_release_IVX	|SV *sv
@@ -1019,7 +1019,7 @@ s	|void	|apply_attrs	|HV *stash|SV *target|OP *attrs|bool for_my
 s	|void	|apply_attrs_my	|HV *stash|OP *target|OP *attrs|OP **imopsp
 #  if defined(PL_OP_SLAB_ALLOC)
 s	|void*	|Slab_Alloc	|int m|size_t sz
-s      |void   |Slab_Free      |void *op
+s	|void	|Slab_Free	|void *op
 #  endif
 #endif
 
@@ -1060,12 +1060,12 @@ s	|U32	|seed
 #endif
 
 #if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT)
-s       |I32    |unpack_rec     |tempsym_t* symptr|char *s|char *strbeg|char *strend|char **new_s
-s       |SV **  |pack_rec       |SV *cat|tempsym_t* symptr|SV **beglist|SV **endlist
+s	|I32	|unpack_rec	|tempsym_t* symptr|char *s|char *strbeg|char *strend|char **new_s
+s	|SV **	|pack_rec	|SV *cat|tempsym_t* symptr|SV **beglist|SV **endlist
 s	|SV*	|mul128		|SV *sv|U8 m
 s	|I32	|measure_struct	|tempsym_t* symptr
 s	|char *	|group_end	|char *pat|char *patend|char ender
-s       |char * |get_num        |char *ppat|I32 *
+s	|char *	|get_num	|char *ppat|I32 *
 s	|bool	|next_symbol	|tempsym_t* symptr
 s	|void	|doencodes	|SV* sv|char* s|I32 len
 s	|SV*	|is_an_int	|char *s|STRLEN l
@@ -1220,7 +1220,7 @@ s	|void	|sv_del_backref	|SV *sv
 s	|void	|del_sv	|SV *p
 #  endif
 #  if !defined(NV_PRESERVES_UV)
-s      |int    |sv_2iuv_non_preserve   |SV *sv|I32 numtype
+s	|int	|sv_2iuv_non_preserve	|SV *sv|I32 numtype
 #  endif
 s	|I32	|expect_number	|char** pattern
 #
diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index af771f1..e622a60 100644
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -64,7 +64,7 @@ L<perlfunc/accept>.
 
 =item '!' allowed only after types %s
 
-(F) The '!' is allowed in pack() or unpack(9 only after certain types.
+(F) The '!' is allowed in pack() or unpack() only after certain types.
 See L<perlfunc/pack>.
 
 =item Ambiguous call resolved as CORE::%s(), qualify as such or use &