perl-5.6.0 Perl___notused

[Billy N. Patton]

I keep getting the following warnings.  I've read through the perldoc
perlxs and am doing what I think they are saying.

Here's what I'm using

uname -a
SunOC dragon 5.5.1 Generic_103640-29 sun4u sparc SUNW,Ultra-5_10


gcc version 2.8.1

perl-5.6.0


Here's my xs file.

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include "laff.h"

typedef node_t * Laff__Node;
typedef cell_t * Laff__Cell;
typedef laff_db * Laff;

static char *packages[] = { ""
                          , "ABACUSINFO"
                          , "ARB"
                          , "ARBINFO"
                          , "ATTR"
                          , "BOUNDARY"
                          , "CELLINFO"
                          , "CIRCLE"
                          , "CLF"
                          , "CLFINFO"
                          , "CONNECT"
                          , "CPD"
                          , "CPR"
                          , "DESIGNATED"
                          , "DETAIL"
                          , "DIAGNOSTIC"
                          , "DTEXT"
                          , "EQUIPOT"
                          , "EQUIV"
                          , "FEEDTHRU"
                          , "FIXED"
                          , "GND"
                          , "GROUND"
                          , "IN"
                          , "INFO"
                          , "INOUT"
                          , "INPUT"
                          , "INSTINFO"
                          , "INTERNAL"
                          , "IO"
                          , "LIB"
                          , "LPAREN"
                          , "NAME"
                          , "NAMES"
                          , "NETINFO"
                          , "OBJECT"
                          , "OUT"
                          , "OUTPUT"
                          , "PAD"
                          , "PATH"
                          , "PORT"
                          , "PORTINFO"
                          , "PORTS"
                          , "POWER"
                          , "PREL"
                          , "QUALIFIED"
                          , "RECT"
                          , "RENAMED"
                          , "RPAREN"
                          , "SNAM"
                          , "STRUCT"
                          , "SXCALL"
                          , "SYMBOLIC"
                          , "TEXT"
                          , "UNDEF"
                          , "UNKNOWN"
                          , "XCALL"
                        };

static char* node2package(node_t *np) 
{
   static char full[64];
   sprintf(full,"Laff::%s",packages[np->type]);
   return full;
}

MODULE = Laff           PACKAGE = Laff  PREFIX=Laff

PROTOTYPES: DISABLE

void
LaffAddCell(db,sv)
  Laff  db
  SV * sv
PPCODE:
{
  cell_p          cp;
  char*           cell;
  if(sv_derived_from(sv, "Laff::Cell") ) 
  {
    cp = (Laff__Cell)SvIV((SV*)SvRV(sv ));
    XSRETURN(laff_add_cell(db,cp));
  }
  cell = (char *)SvPV(sv,PL_na);
  cp = cell_malloc();
  cell_put_name(cp,cell);
  XSRETURN(laff_add_cell(db,cp));
}



THis is only a small portion I get pages and pages of these errors.
They didn't exist with perl5.005.