1################################################################################
2##
3##  Version 3.x, Copyright (C) 2004-2013, Marcus Holland-Moritz.
4##  Version 2.x, Copyright (C) 2001, Paul Marquess.
5##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
6##
7##  This program is free software; you can redistribute it and/or
8##  modify it under the same terms as Perl itself.
9##
10################################################################################
11
12=provides
13
14PERL_REVISION
15PERL_VERSION
16PERL_SUBVERSION
17PERL_BCDVERSION
18
19=dontwarn
20
21PERL_PATCHLEVEL_H_IMPLICIT
22
23=implementation
24
25#ifndef PERL_REVISION
26#  if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
27#    define PERL_PATCHLEVEL_H_IMPLICIT
28#    include <patchlevel.h>
29#  endif
30#  if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
31#    include <could_not_find_Perl_patchlevel.h>
32#  endif
33#  ifndef PERL_REVISION
34#    define PERL_REVISION       (5)
35     /* Replace: 1 */
36#    define PERL_VERSION        PATCHLEVEL
37#    define PERL_SUBVERSION     SUBVERSION
38     /* Replace PERL_PATCHLEVEL with PERL_VERSION */
39     /* Replace: 0 */
40#  endif
41#endif
42
43#define D_PPP_DEC2BCD(dec) ((((dec)/100)<<8)|((((dec)%100)/10)<<4)|((dec)%10))
44#define PERL_BCDVERSION ((D_PPP_DEC2BCD(PERL_REVISION)<<24)|(D_PPP_DEC2BCD(PERL_VERSION)<<12)|D_PPP_DEC2BCD(PERL_SUBVERSION))
45
46/* It is very unlikely that anyone will try to use this with Perl 6
47   (or greater), but who knows.
48 */
49#if PERL_REVISION != 5
50#  error ppport.h only works with Perl version 5
51#endif /* PERL_REVISION != 5 */
52