r63107 - in /trunk/libmodule-install-xsutil-perl: Changes META.yml debian/changelog lib/Module/Install/XSUtil.pm xt/01_podspell.t

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

Author: angelabad-guest
Date: Thu Sep 30 10:04:02 2010
New Revision: 63107

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=63107
Log:
New upstream release

Modified:
    trunk/libmodule-install-xsutil-perl/Changes
    trunk/libmodule-install-xsutil-perl/META.yml
    trunk/libmodule-install-xsutil-perl/debian/changelog
    trunk/libmodule-install-xsutil-perl/lib/Module/Install/XSUtil.pm
    trunk/libmodule-install-xsutil-perl/xt/01_podspell.t

Modified: trunk/libmodule-install-xsutil-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmodule-install-xsutil-perl/Changes?rev=63107&op=diff
==============================================================================
--- trunk/libmodule-install-xsutil-perl/Changes (original)
+++ trunk/libmodule-install-xsutil-perl/Changes Thu Sep 30 10:04:02 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: trunk/libmodule-install-xsutil-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmodule-install-xsutil-perl/META.yml?rev=63107&op=diff
==============================================================================
--- trunk/libmodule-install-xsutil-perl/META.yml (original)
+++ trunk/libmodule-install-xsutil-perl/META.yml Thu Sep 30 10:04:02 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: trunk/libmodule-install-xsutil-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmodule-install-xsutil-perl/debian/changelog?rev=63107&op=diff
==============================================================================
--- trunk/libmodule-install-xsutil-perl/debian/changelog (original)
+++ trunk/libmodule-install-xsutil-perl/debian/changelog Thu Sep 30 10:04:02 2010
@@ -1,3 +1,9 @@
+libmodule-install-xsutil-perl (0.35-1) unstable; urgency=low
+
+  * New upstream release
+
+ -- Angel Abad <angelabad at gmail.com>  Thu, 30 Sep 2010 12:00:33 +0200
+
 libmodule-install-xsutil-perl (0.34-1) unstable; urgency=low
 
   * New upstream release

Modified: trunk/libmodule-install-xsutil-perl/lib/Module/Install/XSUtil.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmodule-install-xsutil-perl/lib/Module/Install/XSUtil.pm?rev=63107&op=diff
==============================================================================
--- trunk/libmodule-install-xsutil-perl/lib/Module/Install/XSUtil.pm (original)
+++ trunk/libmodule-install-xsutil-perl/lib/Module/Install/XSUtil.pm Thu Sep 30 10:04:02 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: trunk/libmodule-install-xsutil-perl/xt/01_podspell.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmodule-install-xsutil-perl/xt/01_podspell.t?rev=63107&op=diff
==============================================================================
--- trunk/libmodule-install-xsutil-perl/xt/01_podspell.t (original)
+++ trunk/libmodule-install-xsutil-perl/xt/01_podspell.t Thu Sep 30 10:04:02 2010
@@ -19,3 +19,6 @@
 Nishino
 lestrrat
 ACKNOWLEDGEMENT
+XS
+RT
+co