diff options
| author | nanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2006-06-27 15:40:12 +0000 |
|---|---|---|
| committer | nanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2006-06-27 15:40:12 +0000 |
| commit | 519667d95a72d110e49c804aefa612c236cab722 (patch) | |
| tree | 9c366b3bc53faa54f862abe483aad5981d79f728 /RPM4/src | |
| parent | 377d8da5a7cf555f0b60877397d42b5542b74eeb (diff) | |
| download | perl-RPM4-519667d95a72d110e49c804aefa612c236cab722.tar perl-RPM4-519667d95a72d110e49c804aefa612c236cab722.tar.gz perl-RPM4-519667d95a72d110e49c804aefa612c236cab722.tar.bz2 perl-RPM4-519667d95a72d110e49c804aefa612c236cab722.tar.xz perl-RPM4-519667d95a72d110e49c804aefa612c236cab722.zip | |
- clean up
- can set passphrase into env var
- add pod doc
git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@112 971eb68f-4bfb-0310-8326-d2484c010a4c
Diffstat (limited to 'RPM4/src')
| -rw-r--r-- | RPM4/src/RPM4.xs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/RPM4/src/RPM4.xs b/RPM4/src/RPM4.xs index 8e76c66..165a956 100644 --- a/RPM4/src/RPM4.xs +++ b/RPM4/src/RPM4.xs @@ -276,6 +276,7 @@ void * XPUSHs(sv_2mortal(newSVpv("total", 0))); XPUSHs(sv_2mortal(newSViv(total))); PUTBACK; + fprintf(stderr, "%x\n", data); call_sv((SV *) data, G_DISCARD | G_SCALAR); SPAGAIN; @@ -1857,6 +1858,7 @@ Ts_transrun(ts, callback, ...) rpmShowProgress, (void *) ((long) INSTALL_LABEL | INSTALL_HASH | INSTALL_UPGRADE)); } else if (SvTYPE(SvRV(callback)) == SVt_PVCV) { /* ref sub */ + fprintf(stderr, "%x\n", callback); rpmtsSetNotifyCallback(ts, transCallback, (void *) |