From 748462bb3e57d9e1e638957137b89749aff963fd Mon Sep 17 00:00:00 2001 From: Dave Beazley Date: Thu, 4 Dec 2003 19:14:14 +0000 Subject: [PATCH] Fixed perl5.005 problems git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@5480 626c5289-ae23-0410-ae9c-e8d60b6d4f22 --- Lib/perl5/perlrun.swg | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Lib/perl5/perlrun.swg b/Lib/perl5/perlrun.swg index 9275d1feb..35d7f08bd 100644 --- a/Lib/perl5/perlrun.swg +++ b/Lib/perl5/perlrun.swg @@ -188,7 +188,7 @@ SWIG_Perl_TypeCheckRV(SWIG_MAYBE_PERL_OBJECT SV *rv, swig_type_info *ty) { if (!ty) return 0; /* Void pointer */ s = ty->next; /* First element always just a name */ do { - if (sv_derived_from(rv, s->name)) { + if (sv_derived_from(rv, (char *) s->name)) { if (s == ty->next) return s; /* Move s to the top of the linked list */ s->prev->next = s->next; @@ -338,19 +338,19 @@ SWIG_Perl_ConvertPacked(SWIG_MAYBE_PERL_OBJECT SV *obj, void *ptr, int sz, swig_ SWIGRUNTIME(void) SWIG_Perl_SetError(SWIG_MAYBE_PERL_OBJECT const char *error) { - if (error) sv_setpv(get_sv("@", TRUE), error); + if (error) sv_setpv(perl_get_sv("@", TRUE), error); } SWIGRUNTIME(void) SWIG_Perl_SetErrorSV(SWIG_MAYBE_PERL_OBJECT SV *error) { - if (error) sv_setsv(get_sv("@", TRUE), error); + if (error) sv_setsv(perl_get_sv("@", TRUE), error); } SWIGRUNTIME(void) SWIG_Perl_SetErrorf(const char *fmt, ...) { va_list args; va_start(args, fmt); - sv_vsetpvfn(get_sv("@", TRUE), fmt, strlen(fmt), &args, Null(SV**), 0, Null(bool*)); + sv_vsetpvfn(perl_get_sv("@", TRUE), fmt, strlen(fmt), &args, Null(SV**), 0, Null(bool*)); va_end(args); }