This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
sv.c: hv_dup should be sv_dup
authorKarl Williamson <public@khwilliamson.com>
Mon, 4 Jul 2011 00:37:27 +0000 (18:37 -0600)
committerKarl Williamson <public@khwilliamson.com>
Mon, 4 Jul 2011 00:41:59 +0000 (18:41 -0600)
Spotted by George Greer.

sv.c

diff --git a/sv.c b/sv.c
index fffa6e9..5e9bf25 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -13258,7 +13258,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
     PL_utf8_xidstart   = sv_dup_inc(proto_perl->Iutf8_xidstart, param);
     PL_utf8_idcont     = sv_dup_inc(proto_perl->Iutf8_idcont, param);
     PL_utf8_xidcont    = sv_dup_inc(proto_perl->Iutf8_xidcont, param);
-    PL_utf8_foldable   = hv_dup_inc(proto_perl->Iutf8_foldable, param);
+    PL_utf8_foldable   = sv_dup_inc(proto_perl->Iutf8_foldable, param);
 
 
     if (proto_perl->Ipsig_pend) {