folkslinux
/
rpm
mirror of https://github.com/rpm-software-management/rpm.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Some casts to reduce compiler warnings on some systems. 

CVS patchset: 5429
CVS date: 2002/05/10 07:38:21
This commit is contained in:
rjray 2002-05-10 07:38:21 +00:00
parent 5a5b62e9c1
commit 76c37b4c76
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Perl-RPM/RPM/Error.xs
View File

@ -4,7 +4,7 @@
#include "RPM.h"
static char * const rcsid = "$Id: Error.xs,v 1.4 2002/04/11 23:07:01 rjray Exp $";
static char * const rcsid = "$Id: Error.xs,v 1.5 2002/05/10 07:38:21 rjray Exp $";
static CV* err_callback;
@ -29,7 +29,7 @@ static void rpm_catch_errors(void)
error_string = rpmErrorString();
/* Set the string part, first */
sv_setsv(rpm_errSV, newSVpv(error_string, strlen(error_string)));
sv_setsv(rpm_errSV, newSVpv((char*)error_string, strlen(error_string)));
/* Set the IV part */
sv_setiv(rpm_errSV, error_code);
/* Doing that didn't erase the PV part, but it cleared the flag: */
@ -44,7 +44,7 @@ static void rpm_catch_errors(void)
SAVETMPS;
PUSHMARK(sp);
XPUSHs(sv_2mortal(newSViv(error_code)));
XPUSHs(sv_2mortal(newSVpv(error_string, strlen(error_string))));
XPUSHs(sv_2mortal(newSVpv((char*)error_string, strlen(error_string))));
PUTBACK;
/* The actual call */