r45233 - in /branches/upstream/libextutils-parsexs-perl/current: Changes META.yml 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:09:23 UTC 2009 

Author: jawnsy-guest
Date: Fri Oct  2 17:09:17 2009
New Revision: 45233

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=45233
Log:
[svn-upgrade] Integrating new upstream version, libextutils-parsexs-perl (2.200403)

Modified:
    branches/upstream/libextutils-parsexs-perl/current/Changes
    branches/upstream/libextutils-parsexs-perl/current/META.yml
    branches/upstream/libextutils-parsexs-perl/current/lib/ExtUtils/ParseXS.pm
    branches/upstream/libextutils-parsexs-perl/current/t/basic.t
    branches/upstream/libextutils-parsexs-perl/current/t/usage.t

Modified: branches/upstream/libextutils-parsexs-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libextutils-parsexs-perl/current/Changes?rev=45233&op=diff
==============================================================================
--- branches/upstream/libextutils-parsexs-perl/current/Changes (original)
+++ branches/upstream/libextutils-parsexs-perl/current/Changes Fri Oct  2 17:09:17 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: branches/upstream/libextutils-parsexs-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libextutils-parsexs-perl/current/META.yml?rev=45233&op=diff
==============================================================================
--- branches/upstream/libextutils-parsexs-perl/current/META.yml (original)
+++ branches/upstream/libextutils-parsexs-perl/current/META.yml Fri Oct  2 17:09:17 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: branches/upstream/libextutils-parsexs-perl/current/lib/ExtUtils/ParseXS.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libextutils-parsexs-perl/current/lib/ExtUtils/ParseXS.pm?rev=45233&op=diff
==============================================================================
--- branches/upstream/libextutils-parsexs-perl/current/lib/ExtUtils/ParseXS.pm (original)
+++ branches/upstream/libextutils-parsexs-perl/current/lib/ExtUtils/ParseXS.pm Fri Oct  2 17:09:17 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: branches/upstream/libextutils-parsexs-perl/current/t/basic.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libextutils-parsexs-perl/current/t/basic.t?rev=45233&op=diff
==============================================================================
--- branches/upstream/libextutils-parsexs-perl/current/t/basic.t (original)
+++ branches/upstream/libextutils-parsexs-perl/current/t/basic.t Fri Oct  2 17:09:17 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: branches/upstream/libextutils-parsexs-perl/current/t/usage.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libextutils-parsexs-perl/current/t/usage.t?rev=45233&op=diff
==============================================================================
--- branches/upstream/libextutils-parsexs-perl/current/t/usage.t (original)
+++ branches/upstream/libextutils-parsexs-perl/current/t/usage.t Fri Oct  2 17:09:17 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