Try to make PPPort.pm 5.005-friendlier (see [perl #21339]).

The variant is from how List::Util Util.xs does it.

p4raw-id: //depot/perl@18826

diff --git a/ext/Devel/PPPort/PPPort.pm b/ext/Devel/PPPort/PPPort.pm
index 5f57ac6..77ef45b 100644 (file)
--- a/ext/Devel/PPPort/PPPort.pm
+++ b/ext/Devel/PPPort/PPPort.pm
@@ -357,7 +357,7 @@ __DATA__
 #   ifndef __PATCHLEVEL_H_INCLUDED__
 #       include <patchlevel.h>
 #   endif
-#   ifndef PERL_VERSION
+#   if !(defined(PERL_VERSION) || (SUBVERSION > 0 && defined(PATCHLEVEL)))
 #       include <could_not_find_Perl_patchlevel.h>
 #   endif
 #   ifndef PERL_REVISION