[perl.git] branch blead, updated. v5.19.3-568-g5f39160

[Tony Cook]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/5f39160de676c8a884597fdd3044c993e6c42555?hp=791f8f9aa5a989a2ccf7f9fae40f68bf65f86f9b>

- Log -----------------------------------------------------------------
commit 5f39160de676c8a884597fdd3044c993e6c42555
Author: Tony Cook <t...@develop-help.com>
Date:   Wed Sep 11 16:30:43 2013 +1000

    [perl #79074] make sure HeSVKEY_force() preserves UTF8ness (pvn)
    
    HeSVKEY_force() is only used in two places in core.
    
    In the first case, the key is always stored as a SV (when handling tie
    magic, since NEXTKEY can only return a SV)
    
    The second case is in B::HE, but I don't see a way to create a B::HE object
    from a hash.
-----------------------------------------------------------------------

Summary of changes:
 ext/XS-APItest/APItest.xs | 16 ++++++++++++++++
 ext/XS-APItest/t/hash.t   |  7 +++++++
 hv.h                      |  4 +++-
 3 files changed, 26 insertions(+), 1 deletion(-)

diff --git a/ext/XS-APItest/APItest.xs b/ext/XS-APItest/APItest.xs
index 16d26de..0e730b0 100644
--- a/ext/XS-APItest/APItest.xs
+++ b/ext/XS-APItest/APItest.xs
@@ -1534,6 +1534,22 @@ refcounted_he_fetch(key, level=0)
 
 #endif
 
+void
+test_force_keys(HV *hv)
+    PREINIT:
+        HE *he;
+       STRLEN count = 0;
+    PPCODE:
+        hv_iterinit(hv);
+        he = hv_iternext(hv);
+        while (he) {
+           SV *sv = HeSVKEY_force(he);
+           ++count;
+           EXTEND(SP, count);
+           PUSHs(sv_mortalcopy(sv));
+            he = hv_iternext(hv);
+        }
+
 =pod
 
 sub TIEHASH  { bless {}, $_[0] }
diff --git a/ext/XS-APItest/t/hash.t b/ext/XS-APItest/t/hash.t
index 9e27af8..8a8c607 100644
--- a/ext/XS-APItest/t/hash.t
+++ b/ext/XS-APItest/t/hash.t
@@ -274,6 +274,13 @@ eval q{
 };
 pass("hv_store works on the hint hash");
 
+{
+    # [perl #79074] HeSVKEY_force loses UTF8ness
+    my %hash = ( "\xff" => 1, "\x{100}" => 1 );
+    my @keys = sort ( XS::APItest::Hash::test_force_keys(\%hash) );
+    is_deeply(\@keys, [ sort keys %hash ], "check HeSVKEY_force()");
+}
+
 done_testing;
 exit;
 
diff --git a/hv.h b/hv.h
index 920fd99..fa13a84 100644
--- a/hv.h
+++ b/hv.h
@@ -367,7 +367,9 @@ C<SV*>.
                                 ((HeKLEN(he) == HEf_SVKEY) ?           \
                                  HeKEY_sv(he) :                        \
                                  newSVpvn_flags(HeKEY(he),             \
-                                                HeKLEN(he), SVs_TEMP)) : \
+                                                 HeKLEN(he),            \
+                                                 SVs_TEMP |             \
+                                      ( HeKUTF8(he) ? SVf_UTF8 : 0 ))) : \
                                 &PL_sv_undef)
 #define HeSVKEY_set(he,sv)     ((HeKLEN(he) = HEf_SVKEY), (HeKEY_sv(he) = sv))
 

--
Perl5 Master Repository