Fix the other bug introduced by change 29079
Nicholas Clark [Sun, 22 Oct 2006 22:51:59 +0000 (22:51 +0000)]
p4raw-id: //depot/perl@29086

sv.c

diff --git a/sv.c b/sv.c
index 77047ef..f5d9cb6 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -10668,7 +10668,8 @@ Perl_ss_dup(pTHX_ PerlInterpreter *proto_perl, CLONE_PARAMS* param)
            TOPPTR(nss,ix) = DUP_WARNINGS((STRLEN*)ptr);
            break;
        default:
-           Perl_croak(aTHX_ "panic: ss_dup inconsistency (%"IVdf")", (IV) i);
+           Perl_croak(aTHX_
+                      "panic: ss_dup inconsistency (%"IVdf")", (IV) type);
        }
     }