diff options
author | Father Chrysostomos <sprout@cpan.org> | 2012-01-31 20:40:14 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2012-01-31 20:40:14 -0800 |
commit | c3ec315fadce0718efe754f1728a276abd110e9a (patch) | |
tree | 8b59a3b549cd24c87e0bb34b2e066708ac323bc7 /ext/XS-APItest | |
parent | 5e51a18cb1805eccb33d3696b2fac9fd3cfbf6b0 (diff) | |
download | perl-c3ec315fadce0718efe754f1728a276abd110e9a.tar.gz |
Stop SvPVutf8 from forcing the POK flag
It was setting this even on magical variables, causing stringification
not to bother calling FETCH, because the POK flag means ‘yes, I’m a
bonified [sic] string, with nothing funny going on’.
Diffstat (limited to 'ext/XS-APItest')
-rw-r--r-- | ext/XS-APItest/t/svpv_magic.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ext/XS-APItest/t/svpv_magic.t b/ext/XS-APItest/t/svpv_magic.t index 2212774f68..c57257e201 100644 --- a/ext/XS-APItest/t/svpv_magic.t +++ b/ext/XS-APItest/t/svpv_magic.t @@ -1,6 +1,6 @@ #!perl -w -use Test::More tests => 9; +use Test::More tests => 10; BEGIN { use_ok('XS::APItest') @@ -46,3 +46,5 @@ undef $f; is SvPVutf8($t), "\xc3\xbf", 'SvPVutf8 works with get-magic downgrading the SV'; is $f, 1, 'SvPVutf8 calls get-magic once'; +()="$t"; +is $f, 2, 'SvPVutf8 does not stop stringification from calling FETCH'; |