RPM Package Manager, CVS Repository
http://rpm5.org/cvs/
____________________________________________________________________________
Server: rpm5.org Name: Anders F. Björklund
Root: /v/rpm/cvs Email: afb@rpm5.org
Module: rpm Date: 15-Dec-2007 00:06:56
Branch: HEAD Handle: 2007121423065600
Modified files:
rpm/perl RPM.xs
Log:
make perl logging compile again after API changes
Summary:
Revision Changes Path
1.26 +5 -3 rpm/perl/RPM.xs
____________________________________________________________________________
patch -p0 <<'@@ .'
Index: rpm/perl/RPM.xs
============================================================================
$ cvs diff -u -r1.25 -r1.26 RPM.xs
--- rpm/perl/RPM.xs 26 Nov 2007 05:16:50 -0000 1.25
+++ rpm/perl/RPM.xs 14 Dec 2007 23:06:56 -0000 1.26
@@ -28,7 +28,7 @@
* is set for for the logging system.
* If the callback is set, rpm does not print any message,
* and let the callback to do it */
-void logcallback(void) {
+int logcallback(rpmlogRec rec, rpmlogCallbackData data) {
dSP;
if (log_callback_function) {
int logcode = rpmlogCode();
@@ -42,7 +42,9 @@
PUTBACK;
call_sv(log_callback_function, G_DISCARD | G_SCALAR);
SPAGAIN;
+ return 0;
}
+ return RPMLOG_DEFAULT;
}
MODULE = RPM PACKAGE = RPM
@@ -181,7 +183,7 @@
SvREFCNT_dec(log_callback_function);
log_callback_function = NULL;
}
- rpmlogSetCallback(NULL);
+ rpmlogSetCallback(NULL, NULL);
} else if (SvTYPE(SvRV(function)) == SVt_PVCV) {
if (log_callback_function) {
SvREFCNT_dec(log_callback_function);
@@ -189,7 +191,7 @@
}
SvREFCNT_inc(function);
log_callback_function = newSVsv(function);
- rpmlogSetCallback(logcallback);
+ rpmlogSetCallback(logcallback, (rpmlogCallbackData) NULL);
} else
croak("First arg is not a code reference");
@@ .
Received on Sat Dec 15 00:06:56 2007