[Swig-cvs] SWIG/Lib/perl5 perlrun.swg,1.42,1.43

[Marcelo M. <mar...@us...>]

Update of /cvsroot/swig/SWIG/Lib/perl5
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28463/Lib/perl5

Modified Files:
	perlrun.swg 
Log Message:
more fixes for old perl versions

Index: perlrun.swg
===================================================================
RCS file: /cvsroot/swig/SWIG/Lib/perl5/perlrun.swg,v
retrieving revision 1.42
retrieving revision 1.43
diff -C2 -d -r1.42 -r1.43
*** perlrun.swg	10 Feb 2006 19:36:01 -0000	1.42
--- perlrun.swg	10 Feb 2006 20:37:20 -0000	1.43
***************
*** 91,94 ****
--- 91,95 ----
  #include "perl.h"
  #include "XSUB.h"
+ #include "patchlevel.h"
  
  #ifndef pTHX_
***************
*** 174,179 ****
  #endif
  
! #ifndef PL_markstack_ptr
  #  define PL_markstack_ptr Perl_markstack_ptr
  #endif
  
--- 175,204 ----
  #endif
  
! /* Salvador's workaround for bug in perl 5.6.x croak and below*/
! #if !defined(PERL_VERSION) || (PERL_VERSION < 8)
! #  ifdef PERL_OBJECT
! #    define SWIG_croak_null() SWIG_Perl_croak_null(pPerl)
! static void SWIG_Perl_croak_null(CPerlObj *pPerl)
! #  else
! static void SWIG_croak_null()
! #  endif
! {
!   SV *err=ERRSV;
! #  if !defined(PERL_VERSION) || (PERL_VERSION < 6)
!   croak("%_", err);
! #  else
!   if (SvOK(err) && !SvROK(err)) croak("%_", err);
!   croak(Nullch);
! #  endif
! }
! #else
! #define SWIG_croak_null() croak(Nullch)
! #endif
! 
! /* Fix for old Perls (except 5.005_04...) */
! #if !((PATCHLEVEL == 5) && (SUBVERSION == 4))
! # ifndef PL_markstack_ptr
  #  define PL_markstack_ptr Perl_markstack_ptr
+ # endif
  #endif