1 ################################################################################
5 ## $Date: 2009/01/18 14:10:54 +0100 $
7 ################################################################################
9 ## Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
10 ## Version 2.x, Copyright (C) 2001, Paul Marquess.
11 ## Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
13 ## This program is free software; you can redistribute it and/or
14 ## modify it under the same terms as Perl itself.
16 ################################################################################
27 PERL_PATCHLEVEL_H_IMPLICIT
33 # if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
34 # define PERL_PATCHLEVEL_H_IMPLICIT
35 # include <patchlevel.h>
37 # if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
38 # include <could_not_find_Perl_patchlevel.h>
40 # ifndef PERL_REVISION
41 # define PERL_REVISION (5)
43 # define PERL_VERSION PATCHLEVEL
44 # define PERL_SUBVERSION SUBVERSION
45 /* Replace PERL_PATCHLEVEL with PERL_VERSION */
50 #define _dpppDEC2BCD(dec) ((((dec)/100)<<8)|((((dec)%100)/10)<<4)|((dec)%10))
51 #define PERL_BCDVERSION ((_dpppDEC2BCD(PERL_REVISION)<<24)|(_dpppDEC2BCD(PERL_VERSION)<<12)|_dpppDEC2BCD(PERL_SUBVERSION))
53 /* It is very unlikely that anyone will try to use this with Perl 6
54 (or greater), but who knows.
56 #if PERL_REVISION != 5
57 # error ppport.h only works with Perl version 5
58 #endif /* PERL_REVISION != 5 */