diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-01-31 12:57:09 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-01-31 12:57:09 -0800 |
| commit | fe46cbda823c09f80e4bc48dd93fafb26cc805f6 (patch) | |
| tree | 0a31624d53759263953496dec82595cc9edaf9d2 /proto.h | |
| parent | 92c88ef1fd925fb1c768293bd43deb970990e7f3 (diff) | |
| download | perl-fe46cbda823c09f80e4bc48dd93fafb26cc805f6.tar.gz | |
[perl #108994] Stop SvPVutf8 from coercing SVs
In shouldn’t destroy globs or references passed to it, or try to
coerce them if they are read-only or incoercible.
I added tests for SvPVbyte at the same time, even though it was not
exhibiting the same problems, as sv_utf8_downgrade doesn’t try to
coerce anything. (SvPVbyte has its own set of bugs, which I hope to
fix in fifthcoming commits.)
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -3727,7 +3727,7 @@ PERL_CALLCONV char* Perl_sv_2pvbyte(pTHX_ SV *const sv, STRLEN *const lp) #define PERL_ARGS_ASSERT_SV_2PVBYTE_NOLEN \ assert(sv) -PERL_CALLCONV char* Perl_sv_2pvutf8(pTHX_ SV *const sv, STRLEN *const lp) +PERL_CALLCONV char* Perl_sv_2pvutf8(pTHX_ SV *sv, STRLEN *const lp) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_SV_2PVUTF8 \ assert(sv) |