This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Give more information in the panic in ss_dup. (Although I'm not sure
authorNicholas Clark <nick@ccl4.org>
Fri, 7 Apr 2006 21:24:35 +0000 (21:24 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 7 Apr 2006 21:24:35 +0000 (21:24 +0000)
if croak() works at this point, given PerlIO's dependency on a
functional interpreter.)

p4raw-id: //depot/perl@27737

sv.c

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);
        }
     }