summaryrefslogtreecommitdiff
path: root/dump.c
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2007-09-26 16:57:34 +0000
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2007-09-26 16:57:34 +0000
commit95b611b0bba585b54c6e7623440a11b1268968e2 (patch)
tree7c46f5f18ff1bc0b482bfd6d2bd53d6c0bdbb2cb /dump.c
parentfbf638cb2f3422c34f7602c75927b8364ccf21ee (diff)
downloadperl-95b611b0bba585b54c6e7623440a11b1268968e2.tar.gz
API spelling patch, by Jerry D. Hedden
p4raw-id: //depot/perl@31983
Diffstat (limited to 'dump.c')
-rw-r--r--dump.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/dump.c b/dump.c
index a0e76b1312..c9c9bb4507 100644
--- a/dump.c
+++ b/dump.c
@@ -296,21 +296,21 @@ Perl_pv_escape( pTHX_ SV *dsv, char const * const str,
|const U32 flags
Converts a string into something presentable, handling escaping via
-pv_escape() and supporting quoting and elipses.
+pv_escape() and supporting quoting and ellipses.
If the PERL_PV_PRETTY_QUOTE flag is set then the result will be
double quoted with any double quotes in the string escaped. Otherwise
if the PERL_PV_PRETTY_LTGT flag is set then the result be wrapped in
angle brackets.
-If the PERL_PV_PRETTY_ELIPSES flag is set and not all characters in
-string were output then an elipses C<...> will be appended to the
+If the PERL_PV_PRETTY_ELLIPSES flag is set and not all characters in
+string were output then an ellipsis C<...> will be appended to the
string. Note that this happens AFTER it has been quoted.
If start_color is non-null then it will be inserted after the opening
quote (if there is one) but before the escaped text. If end_color
is non-null then it will be inserted after the escaped text but before
-any quotes or elipses.
+any quotes or ellipses.
Returns a pointer to the prettified text as held by dsv.
@@ -345,7 +345,7 @@ Perl_pv_pretty( pTHX_ SV *dsv, char const * const str, const STRLEN count,
else if ( flags & PERL_PV_PRETTY_LTGT )
sv_catpvn( dsv, ">", 1);
- if ( (flags & PERL_PV_PRETTY_ELIPSES) && ( escaped < count ) )
+ if ( (flags & PERL_PV_PRETTY_ELLIPSES) && ( escaped < count ) )
sv_catpvn( dsv, "...", 3 );
return SvPVX(dsv);
@@ -1276,7 +1276,7 @@ Perl_do_magic_dump(pTHX_ I32 level, PerlIO *file, const MAGIC *mg, I32 nest, I32
SV * const dsv = sv_newmortal();
const char * const s = pv_pretty(dsv, re->wrapped, re->wraplen,
60, NULL, NULL,
- ( PERL_PV_PRETTY_QUOTE | PERL_PV_ESCAPE_RE | PERL_PV_PRETTY_ELIPSES |
+ ( PERL_PV_PRETTY_QUOTE | PERL_PV_ESCAPE_RE | PERL_PV_PRETTY_ELLIPSES |
((re->extflags & RXf_UTF8) ? PERL_PV_ESCAPE_UNI : 0))
);
Perl_dump_indent(aTHX_ level+1, file, " PAT = %s\n", s);