This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix pointer error in change 27741, spotted by John E. Malmberg.
authorNicholas Clark <nick@ccl4.org>
Sun, 9 Apr 2006 21:07:48 +0000 (21:07 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 9 Apr 2006 21:07:48 +0000 (21:07 +0000)
p4raw-id: //depot/perl@27752

sv.c

diff --git a/sv.c b/sv.c
index 797777b..de8f973 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -10395,8 +10395,8 @@ Perl_ss_dup(pTHX_ PerlInterpreter *proto_perl, CLONE_PARAMS* param)
            break;
         case SAVEt_HV:                         /* hash reference */
         case SAVEt_AV:                         /* array reference */
-           av = (AV*)POPPTR(ss,ix);
-           TOPPTR(nss,ix) = sv_dup_inc(av, param);
+           sv = POPPTR(ss,ix);
+           TOPPTR(nss,ix) = sv_dup_inc(sv, param);
            gv = (GV*)POPPTR(ss,ix);
            TOPPTR(nss,ix) = gv_dup(gv, param);
            break;