This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
sv.c: Fix typo in comment
authorKarl Williamson <khw@cpan.org>
Fri, 10 Nov 2017 01:46:17 +0000 (18:46 -0700)
committerKarl Williamson <khw@cpan.org>
Fri, 10 Nov 2017 01:51:59 +0000 (18:51 -0700)
sv.c

diff --git a/sv.c b/sv.c
index 225e5c8..c1a33fb 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -11921,7 +11921,7 @@ Perl_sv_vcatpvfn_flags(pTHX_ SV *const sv, const char *const pat, const STRLEN p
     bool has_utf8 = DO_UTF8(sv);    /* has the result utf8? */
     const bool pat_utf8 = has_utf8; /* the pattern is in utf8? */
     /* Times 4: a decimal digit takes more than 3 binary digits.
-     * NV_DIG: mantissa takes than many decimal digits.
+     * NV_DIG: mantissa takes that many decimal digits.
      * Plus 32: Playing safe. */
     char ebuf[IV_DIG * 4 + NV_DIG + 32];
     bool no_redundant_warning = FALSE; /* did we use any explicit format parameter index? */