X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=inn-innduct.git;a=blobdiff_plain;f=include%2Fppport.h;h=2387f00b93ec2085c18142131edeca9c81f28dc6;hp=d7d1fb604d4ce1c7889223c5539e7ef4ee832fab;hb=ccfd1e3f48e3b15590263606cf0c6b5317762180;hpb=d5b3cbfbd8f26b8b77ce3ce100a9c13c5a71c8f3;ds=sidebyside

diff --git a/include/ppport.h b/include/ppport.h
index d7d1fb6..2387f00 100644
--- a/include/ppport.h
+++ b/include/ppport.h
@@ -150,6 +150,7 @@ __DATA__
 #	endif
 #endif
 #ifndef PERL_VERSION
+#       define PERL_REVISION (5)
 #       ifdef PERL_PATCHLEVEL
 #               define PERL_VERSION    PERL_PATCHLEVEL
 #       else
@@ -162,7 +163,7 @@ __DATA__
 #	define ERRSV perl_get_sv("@",false)
 #endif
 
-#if (PERL_VERSION < 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION <= 4))
+#if (PERL_REVISION == 5) && ((PERL_VERSION < 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION <= 4)))
 #	define PL_sv_undef	sv_undef
 #	define PL_sv_yes	sv_yes
 #	define PL_sv_no		sv_no
@@ -174,7 +175,7 @@ __DATA__
 #	define PL_copline	copline
 #endif
 
-#if (PERL_VERSION < 5)
+#if (PERL_REVISION == 5) && (PERL_VERSION < 5)
 #	undef dTHR
 #	ifdef WIN32
 #		define dTHR extern int Perl___notused