r63105 - in /branches/upstream/libmodule-install-xsutil-perl/current: Changes META.yml lib/Module/Install/XSUtil.pm xt/01_podspell.t

[angelabad-guest at users.alioth.debian.org]

Author: angelabad-guest
Date: Thu Sep 30 09:58:18 2010
New Revision: 63105

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=63105
Log:
[svn-upgrade] new version libmodule-install-xsutil-perl (0.35)

Modified:
    branches/upstream/libmodule-install-xsutil-perl/current/Changes
    branches/upstream/libmodule-install-xsutil-perl/current/META.yml
    branches/upstream/libmodule-install-xsutil-perl/current/lib/Module/Install/XSUtil.pm
    branches/upstream/libmodule-install-xsutil-perl/current/xt/01_podspell.t

Modified: branches/upstream/libmodule-install-xsutil-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmodule-install-xsutil-perl/current/Changes?rev=63105&op=diff
==============================================================================
--- branches/upstream/libmodule-install-xsutil-perl/current/Changes (original)
+++ branches/upstream/libmodule-install-xsutil-perl/current/Changes Thu Sep 30 09:58:18 2010
@@ -1,4 +1,8 @@
 Revision history for Perl extension Module::Install::XSUtil
+
+0.35 Wed Sep 29 23:46:17 2010
+    - Checks C99 specification more strictly
+    - Add some macros to xshelper.h
 
 0.34 Sun Sep 26 12:18:18 2010
     - Oops! The change in 0.33 did not work.

Modified: branches/upstream/libmodule-install-xsutil-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmodule-install-xsutil-perl/current/META.yml?rev=63105&op=diff
==============================================================================
--- branches/upstream/libmodule-install-xsutil-perl/current/META.yml (original)
+++ branches/upstream/libmodule-install-xsutil-perl/current/META.yml Thu Sep 30 09:58:18 2010
@@ -31,4 +31,4 @@
 resources:
   license: http://dev.perl.org/licenses/
   repository: git://github.com/gfx/Perl-Module-Install-XSUtil.git
-version: 0.34
+version: 0.35

Modified: branches/upstream/libmodule-install-xsutil-perl/current/lib/Module/Install/XSUtil.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmodule-install-xsutil-perl/current/lib/Module/Install/XSUtil.pm?rev=63105&op=diff
==============================================================================
--- branches/upstream/libmodule-install-xsutil-perl/current/lib/Module/Install/XSUtil.pm (original)
+++ branches/upstream/libmodule-install-xsutil-perl/current/lib/Module/Install/XSUtil.pm Thu Sep 30 09:58:18 2010
@@ -2,7 +2,7 @@
 
 use 5.005_03;
 
-$VERSION = '0.34';
+$VERSION = '0.35';
 
 use Module::Install::Base;
 @ISA     = qw(Module::Install::Base);
@@ -218,6 +218,8 @@
     my $tmpfile = File::Temp->new(SUFFIX => '.c');
 
     $tmpfile->print(<<'C99');
+// include a C99 header
+#include <stdbool.h>
 inline // a C99 keyword with C99 style comments
 int test_c99() {
     int i = 0;
@@ -318,7 +320,7 @@
 
     if ( ! $self->{xsu_loaded_checklib} ) {
         my $loaded_lib = 0;
-        foreach my $checklib qw(inc::Devel::CheckLib Devel::CheckLib) {
+        foreach my $checklib (qw(inc::Devel::CheckLib Devel::CheckLib)) {
             eval "use $checklib 0.4";
             if (!$@) {
                 $loaded_lib = 1;
@@ -554,7 +556,8 @@
         $cppflags   .= ' ' . $mm->{DEFINE} if $mm->{DEFINE};
 
         my $add_include = _is_msvc() ? '-FI' : '-include';
-        $cppflags   .= ' ' . join ' ', map{ qq{$add_include "$_"} } qw(EXTERN.h perl.h XSUB.h);
+        $cppflags   .= ' ' . join ' ',
+            map{ qq{$add_include "$_"} } qw(EXTERN.h perl.h XSUB.h);
 
         my $cppcmd = qq{$Config{cpprun} $cppflags $h_file};
 
@@ -659,7 +662,6 @@
 :
 :#define PERL_NO_GET_CONTEXT /* we want efficiency */
 :#include <EXTERN.h>
-:
 :#include <perl.h>
 :#define NO_XSLOCKS /* for exceptions */
 :#include <XSUB.h>
@@ -685,8 +687,8 @@
 :#endif
 :
 :#ifndef LIKELY /* they are just a compiler's hint */
-:#define LIKELY(x)   (x)
-:#define UNLIKELY(x) (x)
+:#define LIKELY(x)   (!!(x))
+:#define UNLIKELY(x) (!!(x))
 :#endif
 :
 :#ifndef newSVpvs_share
@@ -716,8 +718,10 @@
 :#define LooksLikeNumber(x) (SvPOKp(x) ? looks_like_number(x) : (I32)SvNIOKp(x))
 :#endif
 :
-:#define newAV_mortal() (AV*)sv_2mortal((SV*)newAV())
-:#define newHV_mortal() (HV*)sv_2mortal((SV*)newHV())
+:#define newAV_mortal()         (AV*)sv_2mortal((SV*)newAV())
+:#define newHV_mortal()         (HV*)sv_2mortal((SV*)newHV())
+:#define newRV_inc_mortal(sv)   sv_2mortal(newRV_inc(sv))
+:#define newRV_noinc_mortal(sv) sv_2mortal(newRV_noinc(sv))
 :
 :#define DECL_BOOT(name) EXTERN_C XS(CAT2(boot_, name))
 :#define CALL_BOOT(name) STMT_START {            \
@@ -772,7 +776,7 @@
 
 =head1 VERSION
 
-This document describes Module::Install::XSUtil version 0.34.
+This document describes Module::Install::XSUtil version 0.35.
 
 =head1 SYNOPSIS
 

Modified: branches/upstream/libmodule-install-xsutil-perl/current/xt/01_podspell.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmodule-install-xsutil-perl/current/xt/01_podspell.t?rev=63105&op=diff
==============================================================================
--- branches/upstream/libmodule-install-xsutil-perl/current/xt/01_podspell.t (original)
+++ branches/upstream/libmodule-install-xsutil-perl/current/xt/01_podspell.t Thu Sep 30 09:58:18 2010
@@ -19,3 +19,6 @@
 Nishino
 lestrrat
 ACKNOWLEDGEMENT
+XS
+RT
+co