From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 4 Mar 2003 20:22:25 +0000 (+0000)
Subject: Try to make PPPort.pm 5.005-friendlier (see [perl #21339]).
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=220b1401b03105a435f50108cb463fbf9ea82864;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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