| 1 | 1 |
|
| 2 | 2 |
use 5.005_03;
|
| 3 | 3 |
|
| 4 | |
$VERSION = '0.34';
|
|
4 |
$VERSION = '0.35';
|
| 5 | 5 |
|
| 6 | 6 |
use Module::Install::Base;
|
| 7 | 7 |
@ISA = qw(Module::Install::Base);
|
|
| 217 | 217 |
my $tmpfile = File::Temp->new(SUFFIX => '.c');
|
| 218 | 218 |
|
| 219 | 219 |
$tmpfile->print(<<'C99');
|
|
220 |
// include a C99 header
|
|
221 |
#include <stdbool.h>
|
| 220 | 222 |
inline // a C99 keyword with C99 style comments
|
| 221 | 223 |
int test_c99() {
|
| 222 | 224 |
int i = 0;
|
|
| 317 | 319 |
|
| 318 | 320 |
if ( ! $self->{xsu_loaded_checklib} ) {
|
| 319 | 321 |
my $loaded_lib = 0;
|
| 320 | |
foreach my $checklib qw(inc::Devel::CheckLib Devel::CheckLib) {
|
|
322 |
foreach my $checklib (qw(inc::Devel::CheckLib Devel::CheckLib)) {
|
| 321 | 323 |
eval "use $checklib 0.4";
|
| 322 | 324 |
if (!$@) {
|
| 323 | 325 |
$loaded_lib = 1;
|
|
| 553 | 555 |
$cppflags .= ' ' . $mm->{DEFINE} if $mm->{DEFINE};
|
| 554 | 556 |
|
| 555 | 557 |
my $add_include = _is_msvc() ? '-FI' : '-include';
|
| 556 | |
$cppflags .= ' ' . join ' ', map{ qq{$add_include "$_"} } qw(EXTERN.h perl.h XSUB.h);
|
|
558 |
$cppflags .= ' ' . join ' ',
|
|
559 |
map{ qq{$add_include "$_"} } qw(EXTERN.h perl.h XSUB.h);
|
| 557 | 560 |
|
| 558 | 561 |
my $cppcmd = qq{$Config{cpprun} $cppflags $h_file};
|
| 559 | 562 |
|
|
| 658 | 661 |
:
|
| 659 | 662 |
:#define PERL_NO_GET_CONTEXT /* we want efficiency */
|
| 660 | 663 |
:#include <EXTERN.h>
|
| 661 | |
:
|
| 662 | 664 |
:#include <perl.h>
|
| 663 | 665 |
:#define NO_XSLOCKS /* for exceptions */
|
| 664 | 666 |
:#include <XSUB.h>
|
|
| 684 | 686 |
:#endif
|
| 685 | 687 |
:
|
| 686 | 688 |
:#ifndef LIKELY /* they are just a compiler's hint */
|
| 687 | |
:#define LIKELY(x) (x)
|
| 688 | |
:#define UNLIKELY(x) (x)
|
|
689 |
:#define LIKELY(x) (!!(x))
|
|
690 |
:#define UNLIKELY(x) (!!(x))
|
| 689 | 691 |
:#endif
|
| 690 | 692 |
:
|
| 691 | 693 |
:#ifndef newSVpvs_share
|
|
| 715 | 717 |
:#define LooksLikeNumber(x) (SvPOKp(x) ? looks_like_number(x) : (I32)SvNIOKp(x))
|
| 716 | 718 |
:#endif
|
| 717 | 719 |
:
|
| 718 | |
:#define newAV_mortal() (AV*)sv_2mortal((SV*)newAV())
|
| 719 | |
:#define newHV_mortal() (HV*)sv_2mortal((SV*)newHV())
|
|
720 |
:#define newAV_mortal() (AV*)sv_2mortal((SV*)newAV())
|
|
721 |
:#define newHV_mortal() (HV*)sv_2mortal((SV*)newHV())
|
|
722 |
:#define newRV_inc_mortal(sv) sv_2mortal(newRV_inc(sv))
|
|
723 |
:#define newRV_noinc_mortal(sv) sv_2mortal(newRV_noinc(sv))
|
| 720 | 724 |
:
|
| 721 | 725 |
:#define DECL_BOOT(name) EXTERN_C XS(CAT2(boot_, name))
|
| 722 | 726 |
:#define CALL_BOOT(name) STMT_START { \
|
|
| 771 | 775 |
|
| 772 | 776 |
=head1 VERSION
|
| 773 | 777 |
|
| 774 | |
This document describes Module::Install::XSUtil version 0.34.
|
|
778 |
This document describes Module::Install::XSUtil version 0.35.
|
| 775 | 779 |
|
| 776 | 780 |
=head1 SYNOPSIS
|
| 777 | 781 |
|