r45235 - in /trunk/libextutils-parsexs-perl: Changes META.yml debian/changelog lib/ExtUtils/ParseXS.pm t/basic.t t/usage.t

jawnsy-guest at users.alioth.debian.org jawnsy-guest at users.alioth.debian.org
Fri Oct 2 17:11:52 UTC 2009


Author: jawnsy-guest
Date: Fri Oct  2 17:11:47 2009
New Revision: 45235

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=45235
Log:
Integrate new upstream version

Modified:
    trunk/libextutils-parsexs-perl/Changes
    trunk/libextutils-parsexs-perl/META.yml
    trunk/libextutils-parsexs-perl/debian/changelog
    trunk/libextutils-parsexs-perl/lib/ExtUtils/ParseXS.pm
    trunk/libextutils-parsexs-perl/t/basic.t
    trunk/libextutils-parsexs-perl/t/usage.t

Modified: trunk/libextutils-parsexs-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libextutils-parsexs-perl/Changes?rev=45235&op=diff
==============================================================================
--- trunk/libextutils-parsexs-perl/Changes (original)
+++ trunk/libextutils-parsexs-perl/Changes Fri Oct  2 17:11:47 2009
@@ -1,4 +1,18 @@
 Revision history for Perl extension ExtUtils::ParseXS.
+
+2.200403 - Fri Oct  2 02:01:58 EDT 2009
+
+ Other:
+ - Removed PERL_CORE specific @INC manipulation (no longer needed)
+   [Nicholas Clark]
+ - Changed hard-coded $^H manipulation in favor of "use re 'eval'"
+   [Nicholas Clark]
+
+2.200402 - Fri Oct  2 01:26:40 EDT 2009
+
+ Bug fixes:
+ - UNITCHECK subroutines were not being called (detected in ext/XS-APItest
+   in Perl blead) [reported by Jesse Vincent, patched by David Golden]
 
 2.200401 - Mon Sep 14 22:26:03 EDT 2009
 
@@ -16,8 +30,8 @@
 2.20_03 - Thu Jul 23 23:14:50 EDT 2009
 
  Bug fixes:
- - Fixed "const char *" errors for 5.8.8 (and older) (RT#48104) 
-   [Vincent Pit] 
+ - Fixed "const char *" errors for 5.8.8 (and older) (RT#48104)
+   [Vincent Pit]
  - Added newline before a preprocessor directive (RT#30673)
    [patch by hjp]
 

Modified: trunk/libextutils-parsexs-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libextutils-parsexs-perl/META.yml?rev=45235&op=diff
==============================================================================
--- trunk/libextutils-parsexs-perl/META.yml (original)
+++ trunk/libextutils-parsexs-perl/META.yml Fri Oct  2 17:11:47 2009
@@ -1,6 +1,6 @@
 ---
 name: ExtUtils-ParseXS
-version: 2.200401
+version: 2.200403
 author:
   - 'Maintained by Ken Williams, <ken at mathforum.org>'
 abstract: converts Perl XS code into C code
@@ -24,7 +24,7 @@
 provides:
   ExtUtils::ParseXS:
     file: lib/ExtUtils/ParseXS.pm
-    version: 2.200401
+    version: 2.200403
 generated_by: Module::Build version 0.3502
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html

Modified: trunk/libextutils-parsexs-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libextutils-parsexs-perl/debian/changelog?rev=45235&op=diff
==============================================================================
--- trunk/libextutils-parsexs-perl/debian/changelog (original)
+++ trunk/libextutils-parsexs-perl/debian/changelog Fri Oct  2 17:11:47 2009
@@ -1,7 +1,4 @@
-libextutils-parsexs-perl (2.200401-1) UNRELEASED; urgency=low
-
-  These are only changes affecting older versions of perl (~ 5.8.8 and less)
-  IGNORE-VERSION: 2.200401-1
+libextutils-parsexs-perl (2.200403-1) UNRELEASED; urgency=low
 
   [ Jonathan Yu ]
   * New upstream release
@@ -9,7 +6,7 @@
   [ Ryan Niebur ]
   * Update jawnsy's email address
 
- -- Jonathan Yu <jawnsy at cpan.org>  Sun, 20 Sep 2009 10:19:47 -0400
+ -- Jonathan Yu <jawnsy at cpan.org>  Fri, 02 Oct 2009 09:25:37 -0400
 
 libextutils-parsexs-perl (2.2002-1) unstable; urgency=low
 

Modified: trunk/libextutils-parsexs-perl/lib/ExtUtils/ParseXS.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libextutils-parsexs-perl/lib/ExtUtils/ParseXS.pm?rev=45235&op=diff
==============================================================================
--- trunk/libextutils-parsexs-perl/lib/ExtUtils/ParseXS.pm (original)
+++ trunk/libextutils-parsexs-perl/lib/ExtUtils/ParseXS.pm Fri Oct  2 17:11:47 2009
@@ -18,7 +18,7 @@
 my($XSS_work_idx, $cpp_next_tmp);
 
 use vars qw($VERSION);
-$VERSION = '2.200401';
+$VERSION = '2.200403';
 
 use vars qw(%input_expr %output_expr $ProtoUsed @InitFileCode $FH $proto_re $Overload $errors $Fallback
 	    $cplusplus $hiertype $WantPrototypes $WantVersionChk $except $WantLineNumbers
@@ -210,7 +210,9 @@
   $size = qr[,\s* (??{ $bal }) ]x; # Third arg (to setpvn)
 
   foreach my $key (keys %output_expr) {
-    BEGIN { $^H |= 0x00200000 }; # Equivalent to: use re 'eval', but hardcoded so we can compile re.xs
+    # We can still bootstrap compile 're', because in code re.pm is 
+    # available to miniperl, and does not attempt to load the XS code.
+    use re 'eval';
 
     my ($t, $with_size, $arg, $sarg) =
       ($output_expr{$key} =~
@@ -555,7 +557,6 @@
       my $arg0 = ((defined($static) or $func_name eq 'new')
 		  ? "CLASS" : "THIS");
       unshift(@args, $arg0);
-#      ($report_args = "$arg0, $report_args") =~ s/^\w+, $/$arg0/;
     }
     my $extra_args = 0;
     @args_num = ();
@@ -979,8 +980,6 @@
   #Under 5.8.x and lower, newXS is declared in proto.h as expecting a non-const
   #file name argument. If the wrong qualifier is used, it causes breakage with
   #C++ compilers and warnings with recent gcc.
-  my $file_decl = ($] < 5.009) ? "char file[]" : "const char* file";
-
   #-Wall: if there is no $Full_func_name there are no xsubs in this .xs
   #so `file' is unused
   print Q(<<"EOF") if $Full_func_name;
@@ -1036,7 +1035,7 @@
   }
 
   print Q(<<'EOF');
-##ifdef PL_unitcheckav
+##if (PERL_REVISION == 5 && PERL_VERSION >= 9)
 #  if (PL_unitcheckav)
 #       call_list(PL_scopestack_ix, PL_unitcheckav);
 ##endif

Modified: trunk/libextutils-parsexs-perl/t/basic.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libextutils-parsexs-perl/t/basic.t?rev=45235&op=diff
==============================================================================
--- trunk/libextutils-parsexs-perl/t/basic.t (original)
+++ trunk/libextutils-parsexs-perl/t/basic.t Fri Oct  2 17:11:47 2009
@@ -1,13 +1,5 @@
 #!/usr/bin/perl
 
-BEGIN {
-  if ($ENV{PERL_CORE}) {
-    chdir 't' if -d 't';
-    chdir '../lib/ExtUtils/ParseXS'
-      or die "Can't chdir to lib/ExtUtils/ParseXS: $!";
-    @INC = qw(../.. ../../.. .);
-  }
-}
 use strict;
 use Test::More;
 use Config;

Modified: trunk/libextutils-parsexs-perl/t/usage.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libextutils-parsexs-perl/t/usage.t?rev=45235&op=diff
==============================================================================
--- trunk/libextutils-parsexs-perl/t/usage.t (original)
+++ trunk/libextutils-parsexs-perl/t/usage.t Fri Oct  2 17:11:47 2009
@@ -1,13 +1,5 @@
 #!/usr/bin/perl
 
-BEGIN {
-  if ($ENV{PERL_CORE}) {
-    chdir 't' if -d 't';
-    chdir '../lib/ExtUtils/ParseXS'
-      or die "Can't chdir to lib/ExtUtils/ParseXS: $!";
-    @INC = qw(../.. ../../.. .);
-  }
-}
 use strict;
 use Test::More;
 use Config;




More information about the Pkg-perl-cvs-commits mailing list