summaryrefslogtreecommitdiffstats
path: root/perl-install/c/stuff.xs.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>1999-11-18 17:21:44 +0000
committerFrancois Pons <fpons@mandriva.com>1999-11-18 17:21:44 +0000
commit7c32cf9c3f2c6ad9884716f67aee1a2979812de9 (patch)
tree007b0a387ef2194ef61692bba27459b4d77fd53d /perl-install/c/stuff.xs.pm
parentff92a24605af270187adee63ba306b5ecd1d6ff9 (diff)
downloaddrakx-backup-do-not-use-7c32cf9c3f2c6ad9884716f67aee1a2979812de9.tar
drakx-backup-do-not-use-7c32cf9c3f2c6ad9884716f67aee1a2979812de9.tar.gz
drakx-backup-do-not-use-7c32cf9c3f2c6ad9884716f67aee1a2979812de9.tar.bz2
drakx-backup-do-not-use-7c32cf9c3f2c6ad9884716f67aee1a2979812de9.tar.xz
drakx-backup-do-not-use-7c32cf9c3f2c6ad9884716f67aee1a2979812de9.zip
*** empty log message ***
Diffstat (limited to 'perl-install/c/stuff.xs.pm')
-rw-r--r--perl-install/c/stuff.xs.pm26
1 files changed, 18 insertions, 8 deletions
diff --git a/perl-install/c/stuff.xs.pm b/perl-install/c/stuff.xs.pm
index a3317b76b..32ca98ff6 100644
--- a/perl-install/c/stuff.xs.pm
+++ b/perl-install/c/stuff.xs.pm
@@ -229,7 +229,12 @@ rpmdbOpenForTraversal(root)
char *root
CODE:
static rpmdb db;
+ rpmErrorCallBackType old_cb;
+ old_cb = rpmErrorSetCallback(rpmError_callback_empty);
+ rpmSetVerbosity(RPMMESS_FATALERROR);
RETVAL = rpmdbOpenForTraversal(root, &db) == 0 ? db : NULL;
+ rpmErrorSetCallback(old_cb);
+ rpmSetVerbosity(RPMMESS_NORMAL);
OUTPUT:
RETVAL
@@ -392,7 +397,12 @@ int
rpmdbRebuild(root)
char *root
CODE:
+ rpmErrorCallBackType old_cb;
+ old_cb = rpmErrorSetCallback(rpmError_callback_empty);
+ rpmSetVerbosity(RPMMESS_FATALERROR);
RETVAL = rpmdbRebuild(root) == 0;
+ rpmErrorSetCallback(old_cb);
+ rpmSetVerbosity(RPMMESS_NORMAL);
OUTPUT:
RETVAL
@@ -461,16 +471,16 @@ rpmRunTransactions(trans, callbackOpen, callbackClose, callbackStart, callbackPr
}
case RPMCALLBACK_INST_START: {
- dSP ;
- PUSHMARK(sp) ;
- XPUSHs(sv_2mortal(newSVpv(n, 0)));
- PUTBACK ;
- perl_call_sv(callbackStart, G_DISCARD);
- last_amount = 0;
- } break;
+ dSP ;
+ PUSHMARK(sp) ;
+ XPUSHs(sv_2mortal(newSVpv(n, 0)));
+ PUTBACK ;
+ perl_call_sv(callbackStart, G_DISCARD);
+ last_amount = 0;
+ } break;
case RPMCALLBACK_INST_PROGRESS:
- if ((amount - last_amount) * 4 / total) {
+ if ((amount - last_amount) * 4 / total) {
dSP;
PUSHMARK(sp);
XPUSHs(sv_2mortal(newSViv(amount)));