Second round of fixing the OpenSSL perl/ stuff. It now at least compiled fine

[openssl.git] / perl / openssl_cb.c

diff --git a/perl/openssl_cb.c b/perl/openssl_cb.c
index 01840abc854a48fcda8eeadfb6ceff750ff3539c..c093ae0bd62f07f9134c12ed36bac7aa2ea54624 100644 (file)
--- a/perl/openssl_cb.c
+++ b/perl/openssl_cb.c
@@ -1,4 +1,3 @@
-/* perl/callback.c */
 /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
  * All rights reserved.
  *
@@ -80,7 +79,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);