summaryrefslogtreecommitdiff
path: root/perl/callback.c
diff options
context:
space:
mode:
Diffstat (limited to 'perl/callback.c')
-rw-r--r--perl/callback.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl/callback.c b/perl/callback.c
index 01840abc85..4e39c16d70 100644
--- a/perl/callback.c
+++ b/perl/callback.c
@@ -80,7 +80,7 @@ char *argp;
{
SV *sv;
-fprintf(stderr,"ex_new %08X %s\n",obj,argp);
+fprintf(stderr,"ex_new idx=%d %08X %s\n",idx,obj,argp);
sv=sv_newmortal();
sv_setref_pv(sv,argp,(void *)obj);
CRYPTO_set_ex_data(ad,idx,(char *)sv);