[Benson-commit] CVS: benson3/src/perl perl_util.c,1.14,1.15

[Bob T. <bt...@us...>]

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 ----