|
From: Bob T. <bt...@us...> - 2003-11-08 20:43:26
|
Update of /cvsroot/benson/benson3/src/perl
In directory sc8-pr-cvs1:/tmp/cvs-serv10656/perl
Modified Files:
perl_util.c
Log Message:
Fixed a whole lot of warnings.
Index: perl_util.c
===================================================================
RCS file: /cvsroot/benson/benson3/src/perl/perl_util.c,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -r1.14 -r1.15
*** perl_util.c 29 Sep 2003 18:04:10 -0000 1.14
--- perl_util.c 8 Nov 2003 20:43:20 -0000 1.15
***************
*** 82,86 ****
STRLEN n_a;
printf("Error - PerlObject::require_module(\"%s\")\n", pkgname);
! printf("%s",SvPV(ERRSV,n_a));
return 1;
}
--- 82,86 ----
STRLEN n_a;
printf("Error - PerlObject::require_module(\"%s\")\n", pkgname);
! printf("%s",SvPV(ERRSV, n_a));
return 1;
}
***************
*** 104,108 ****
XPUSHs(sv_2mortal(newSVpv(pkgname,0)));
! va_start(ap, pkgname);
for(ctr=0; ctr<argc; ctr++) {
p = va_arg(ap, SV*);
--- 104,108 ----
XPUSHs(sv_2mortal(newSVpv(pkgname,0)));
! va_start(ap, argc);
for(ctr=0; ctr<argc; ctr++) {
p = va_arg(ap, SV*);
***************
*** 129,133 ****
if(SvTRUE(ERRSV)) {
- STRLEN n_a;
fprintf(stderr,"Perl Exception - bn_new_object()\n");
return NULL;
--- 129,132 ----
***************
*** 140,144 ****
bn_set_attribute(SV *pkg, const char *method, SV *value)
{
- SV* attribute_ref;
dSP;
--- 139,142 ----
|