r51787 - in /trunk/libextutils-parsexs-perl: Changes META.yml debian/changelog lib/ExtUtils/ParseXS.pm

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

Author: jawnsy-guest
Date: Sat Jan 30 02:22:34 2010
New Revision: 51787

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

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

Modified: trunk/libextutils-parsexs-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libextutils-parsexs-perl/Changes?rev=51787&op=diff
==============================================================================
--- trunk/libextutils-parsexs-perl/Changes (original)
+++ trunk/libextutils-parsexs-perl/Changes Sat Jan 30 02:22:34 2010
@@ -1,4 +1,14 @@
 Revision history for Perl extension ExtUtils::ParseXS.
+
+2.2202 - Wed Jan 27 15:04:59 EST 2010
+
+ Bug fixes:
+
+ - The fix to IN/OUT/OUTLIST was itself broken and is now fixed.
+   [Reported by Serdar Dalgic; fix suggested by Rafael Garcia-Suarez]
+
+   We apologize for the fault in the regex. Those responsible 
+   have been sacked.
 
 2.2201 Mon Jan 25 16:12:05 EST 2010
 

Modified: trunk/libextutils-parsexs-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libextutils-parsexs-perl/META.yml?rev=51787&op=diff
==============================================================================
--- trunk/libextutils-parsexs-perl/META.yml (original)
+++ trunk/libextutils-parsexs-perl/META.yml Sat Jan 30 02:22:34 2010
@@ -17,7 +17,7 @@
 provides:
   ExtUtils::ParseXS:
     file: lib/ExtUtils/ParseXS.pm
-    version: 2.2201
+    version: 2.2202
 requires:
   Cwd: 0
   Exporter: 0
@@ -29,4 +29,4 @@
   bugtracker: http://rt.cpan.org/Dist/Display.html?Queue=ExtUtils-ParseXS
   license: http://dev.perl.org/licenses/
   repository: git://github.com/dagolden/extutils-parsexs.git
-version: 2.2201
+version: 2.2202

Modified: trunk/libextutils-parsexs-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libextutils-parsexs-perl/debian/changelog?rev=51787&op=diff
==============================================================================
--- trunk/libextutils-parsexs-perl/debian/changelog (original)
+++ trunk/libextutils-parsexs-perl/debian/changelog Sat Jan 30 02:22:34 2010
@@ -1,3 +1,9 @@
+libextutils-parsexs-perl (2.220200-1) UNRELEASED; urgency=low
+
+  * New upstream release
+
+ -- Jonathan Yu <jawnsy at cpan.org>  Fri, 29 Jan 2010 20:40:21 -0500
+
 libextutils-parsexs-perl (2.220100-1) unstable; urgency=low
 
   * New upstream release

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=51787&op=diff
==============================================================================
--- trunk/libextutils-parsexs-perl/lib/ExtUtils/ParseXS.pm (original)
+++ trunk/libextutils-parsexs-perl/lib/ExtUtils/ParseXS.pm Sat Jan 30 02:22:34 2010
@@ -18,7 +18,7 @@
 my($XSS_work_idx, $cpp_next_tmp);
 
 use vars qw($VERSION);
-$VERSION = '2.2201';
+$VERSION = '2.2202';
 $VERSION = eval $VERSION if $VERSION =~ /_/;
 
 use vars qw(%input_expr %output_expr $ProtoUsed @InitFileCode $FH $proto_re $Overload $errors $Fallback
@@ -521,11 +521,11 @@
 	  next unless defined($pre) && length($pre);
 	  my $out_type = '';
 	  my $inout_var;
-	  if ($process_inout and s/^(IN|IN_OUTLIST|OUTLIST|OUT|IN_OUT)\s*//) {
+	  if ($process_inout and s/^(IN|IN_OUTLIST|OUTLIST|OUT|IN_OUT)\b\s*//) {
 	    my $type = $1;
 	    $out_type = $type if $type ne 'IN';
-	    $arg =~ s/^(IN|IN_OUTLIST|OUTLIST|OUT|IN_OUT)\s*//;
-	    $pre =~ s/^(IN|IN_OUTLIST|OUTLIST|OUT|IN_OUT)\s*//;
+	    $arg =~ s/^(IN|IN_OUTLIST|OUTLIST|OUT|IN_OUT)\b\s*//;
+	    $pre =~ s/^(IN|IN_OUTLIST|OUTLIST|OUT|IN_OUT)\b\s*//;
 	  }
 	  my $islength;
 	  if ($name =~ /^length\( \s* (\w+) \s* \)\z/x) {
@@ -555,7 +555,7 @@
     } else {
       @args = split(/\s*,\s*/, $orig_args);
       for (@args) {
-	if ($process_inout and s/^(IN|IN_OUTLIST|OUTLIST|IN_OUT|OUT)\s+//) {
+	if ($process_inout and s/^(IN|IN_OUTLIST|OUTLIST|IN_OUT|OUT)\b\s*//) {
 	  my $out_type = $1;
 	  next if $out_type eq 'IN';
 	  $only_C_inlist{$_} = 1 if $out_type eq "OUTLIST";