Give more information in the panic in ss_dup. (Although I'm not sure

if croak() works at this point, given PerlIO's dependency on a
functional interpreter.)

p4raw-id: //depot/perl@27737

diff --git a/sv.c b/sv.c
index 146012e..8c80e2c 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -10614,7 +10614,7 @@ Perl_ss_dup(pTHX_ PerlInterpreter *proto_perl, CLONE_PARAMS* param)
            TOPPTR(nss,ix) = sv_dup(sv, param);
            break;
        default:
-           Perl_croak(aTHX_ "panic: ss_dup inconsistency");
+           Perl_croak(aTHX_ "panic: ss_dup inconsistency (%"IVdf")", (IV) i);
        }
     }