This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Comment tweak.
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 27 Aug 2014 01:19:31 +0000 (21:19 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 27 Aug 2014 22:21:39 +0000 (18:21 -0400)
sv.c

diff --git a/sv.c b/sv.c
index 7c334d0..69e7eed 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -2804,9 +2804,9 @@ S_uiv_2buf(char *const buf, const IV iv, UV uv, const int is_uv, char **const pe
 }
 
 /* Helper for sv_2pv_flags and sv_vcatpvfn_flags.  If the NV is an
- * infinity or a not-a-number, writes the approrpriate strings to the
- * buffer, including a zero byte.  Returns the written length,
- * excluding the zero byte, or zero. */
+* infinity or a not-a-number, writes the appropriate strings to the
+* buffer, including a zero byte.  On success returns the written length,
+* excluding the zero byte, on failure returns zero. */
 STATIC size_t
 S_infnan_copy(NV nv, char* buffer, size_t maxlen) {
     if (maxlen < 4)