################################################################################

##

##  Version 3.x, Copyright (C) 2004-2013, Marcus Holland-Moritz.

##  Version 2.x, Copyright (C) 2001, Paul Marquess.

##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.

##

##  This program is free software; you can redistribute it and/or

##  modify it under the same terms as Perl itself.

##

################################################################################

=provides

PERL_REVISION

PERL_VERSION

PERL_SUBVERSION

PERL_BCDVERSION

=dontwarn

PERL_PATCHLEVEL_H_IMPLICIT

_dpppDEC2BCD

=implementation

#ifndef PERL_REVISION

#  if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))

#    define PERL_PATCHLEVEL_H_IMPLICIT

#    include <patchlevel.h>

#  endif

#  if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))

#    include <could_not_find_Perl_patchlevel.h>

#  endif

#  ifndef PERL_REVISION

#    define PERL_REVISION       (5)

     /* Replace: 1 */

#    define PERL_VERSION        PATCHLEVEL

#    define PERL_SUBVERSION     SUBVERSION

     /* Replace PERL_PATCHLEVEL with PERL_VERSION */

     /* Replace: 0 */

#  endif

#endif

#define _dpppDEC2BCD(dec) ((((dec)/100)<<8)|((((dec)%100)/10)<<4)|((dec)%10))

#define PERL_BCDVERSION ((_dpppDEC2BCD(PERL_REVISION)<<24)|(_dpppDEC2BCD(PERL_VERSION)<<12)|_dpppDEC2BCD(PERL_SUBVERSION))

/* It is very unlikely that anyone will try to use this with Perl 6

   (or greater), but who knows.

 */

#if PERL_REVISION != 5

#  error ppport.h only works with Perl version 5

#endif /* PERL_REVISION != 5 */