diff options
author | Dominic Hamon <dominichamon@users.noreply.github.com> | 2021-04-11 03:20:48 +0100 |
---|---|---|
committer | GitHub <noreply@github.com> | 2021-04-10 20:20:48 -0600 |
commit | 12c68733611a690880d3f4621d10c9110b8ac7e4 (patch) | |
tree | f9e63815c206e95366c876cb41346fb524504838 /sv.c | |
parent | d6b338e16ce631123b5bae0e4bb404408874c5a3 (diff) | |
download | perl-12c68733611a690880d3f4621d10c9110b8ac7e4.tar.gz |
Support %#p format (#18709)
* Support %#p form of %..p
Fix #18289
* Better testing
* Add myself to AUTHORS
* Add a comment
Diffstat (limited to 'sv.c')
-rw-r--r-- | sv.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -12398,8 +12398,6 @@ Perl_sv_vcatpvfn_flags(pTHX_ SV *const sv, const char *const pat, const STRLEN p /* INTEGERS */ case 'p': - if (alt) - goto unknown; /* %p extensions: * @@ -12474,6 +12472,7 @@ Perl_sv_vcatpvfn_flags(pTHX_ SV *const sv, const char *const pat, const STRLEN p uv = PTR2UV(args ? va_arg(*args, void*) : argsv); base = 16; + c = 'x'; /* in case the format string contains '#' */ goto do_integer; case 'c': |