view release on metacpan or  search on metacpan

alienfile  view on Meta::CPAN

our $VERSION = 'v4.6.2.4'; # VERSION

# tie versions of this module and CFITSIO.  CFITSIO's code is very
# backwards compatible, but their build configuration may break, which
# will cause the unnecessary failure to build this module.

use constant CFITSIO_VERSION => '4.6.2';

# allow tweaks for testing.
# DON'T USE THIS UNLESS YOU LIKE TO PUT YOUR HAND ON A HOT STOVE.

use constant ( { map { uc($_) => $_ } 'exact_version', 'atleast_version' } );

my %VersionMatchEnvs = (
    ALIEN_CFITSIO_EXACT_VERSION => EXACT_VERSION,
    ALIEN_CFITSIO_ATLEAST_VERSION => ATLEAST_VERSION,
);

my ( $version_match, @extra ) =  grep { defined $ENV{$_} } keys %VersionMatchEnvs;

t/xs.t  view on Meta::CPAN

MODULE = TA_MODULE PACKAGE = TA_MODULE

float
fits_get_version( )
  PREINIT:
  float version = 0;
  double dversion;
  CODE:
    RETVAL = fits_get_version( &version );
  OUTPUT:
    RETVAL