Fix unused warnings in perl wrappers

This commit is contained in:
William S Fulton 2016-05-28 09:59:16 +01:00
commit db54a8d5d1
3 changed files with 5 additions and 2 deletions

View file

@ -144,9 +144,9 @@ typedef int (*SwigMagicFunc)(struct interpreter *, SV *, MAGIC *);
# ifdef PERL_OBJECT
# define SWIG_croak_null() SWIG_Perl_croak_null(pPerl)
static void SWIG_Perl_croak_null(CPerlObj *pPerl)
static void SWIGUNUSED SWIG_Perl_croak_null(CPerlObj *pPerl)
# else
static void SWIG_croak_null()
static void SWIGUNUSED SWIG_croak_null()
# endif
{
SV *err = get_sv("@", GV_ADD);