diff options
| author | Ralf S. Engelschall <rse@openssl.org> | 1998-12-21 11:00:56 +0000 |
|---|---|---|
| committer | Ralf S. Engelschall <rse@openssl.org> | 1998-12-21 11:00:56 +0000 |
| commit | dfeab0689f69c0b4bd3480ffd37a9cacc2f17d9c (patch) | |
| tree | 2f74e0cfd76a9e092548a9bf52e579aef984299b /perl/OpenSSL.xs | |
| parent | 58964a492275ca9a59a0cd9c8155cb2491b4b909 (diff) | |
| download | openssl-dfeab0689f69c0b4bd3480ffd37a9cacc2f17d9c.zip openssl-dfeab0689f69c0b4bd3480ffd37a9cacc2f17d9c.tar.gz openssl-dfeab0689f69c0b4bd3480ffd37a9cacc2f17d9c.tar.bz2 | |
Import of old SSLeay release: SSLeay 0.9.1b (unreleased)SSLeay
Diffstat (limited to 'perl/OpenSSL.xs')
| -rw-r--r-- | perl/OpenSSL.xs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/perl/OpenSSL.xs b/perl/OpenSSL.xs index 582b570..3e3d1de 100644 --- a/perl/OpenSSL.xs +++ b/perl/OpenSSL.xs @@ -10,6 +10,7 @@ char *obj; ret=sv_newmortal(); else ret=newSViv(0); +printf(">new_ref %d\n",type); sv_setref_pv(ret,type,(void *)obj); return(ret); } @@ -27,6 +28,7 @@ char *argp; fprintf(stderr,"ex_new %08X %s\n",obj,argp); sv=sv_newmortal(); sv_setref_pv(sv,argp,(void *)obj); +printf("%d>new_ref '%s'\n",sv,argp); CRYPTO_set_ex_data(ad,idx,(char *)sv); return(1); } |