diff -Nru libextutils-parsexs-perl-2.220500/Changes libextutils-parsexs-perl-2.220600/Changes --- libextutils-parsexs-perl-2.220500/Changes 2010-03-10 23:16:44.000000000 +0000 +++ libextutils-parsexs-perl-2.220600/Changes 2010-07-04 19:52:37.000000000 +0000 @@ -1,5 +1,16 @@ Revision history for Perl extension ExtUtils::ParseXS. +2.2206 - Sun Jul 4 15:43:21 EDT 2010 + + Bug fixes: + + - Make xsubpp accept the _ prototype (RT#57157) [Rafael Garcia-Suarez] + + - INCLUDE_COMMAND portability fixes for VMS (RT#58181) [Craig Berry] + + - INCLUDE_COMMAND fixes to detect non-zero exit codes (RT#52873) + [Steffen Mueller] + 2.2205 - Wed Mar 10 18:15:36 EST 2010 Other: diff -Nru libextutils-parsexs-perl-2.220500/debian/changelog libextutils-parsexs-perl-2.220600/debian/changelog --- libextutils-parsexs-perl-2.220500/debian/changelog 2010-10-15 13:36:36.000000000 +0000 +++ libextutils-parsexs-perl-2.220600/debian/changelog 2010-07-05 14:52:29.000000000 +0000 @@ -1,3 +1,12 @@ +libextutils-parsexs-perl (2.220600-1) unstable; urgency=low + + * New upstream release. + * Use source format 3.0 (quilt). + * Bump Standards-Version to 3.9.0. + * Add myself to Uploaders. + + -- Ansgar Burchardt Mon, 05 Jul 2010 12:39:02 +0900 + libextutils-parsexs-perl (2.220500-1) unstable; urgency=low * New upstream release diff -Nru libextutils-parsexs-perl-2.220500/debian/control libextutils-parsexs-perl-2.220600/debian/control --- libextutils-parsexs-perl-2.220500/debian/control 2010-10-15 13:36:36.000000000 +0000 +++ libextutils-parsexs-perl-2.220600/debian/control 2010-07-05 14:52:29.000000000 +0000 @@ -5,8 +5,9 @@ Build-Depends-Indep: perl, libextutils-cbuilder-perl Maintainer: Debian Perl Group Uploaders: AGOSTINI Yves , - Jonathan Yu , Damyan Ivanov -Standards-Version: 3.8.4 + Jonathan Yu , Damyan Ivanov , + Ansgar Burchardt +Standards-Version: 3.9.0 Homepage: http://search.cpan.org/dist/ExtUtils-ParseXS/ Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libextutils-parsexs-perl/ Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libextutils-parsexs-perl/ diff -Nru libextutils-parsexs-perl-2.220500/debian/source/format libextutils-parsexs-perl-2.220600/debian/source/format --- libextutils-parsexs-perl-2.220500/debian/source/format 1970-01-01 00:00:00.000000000 +0000 +++ libextutils-parsexs-perl-2.220600/debian/source/format 2010-10-15 13:36:37.000000000 +0000 @@ -0,0 +1 @@ +3.0 (quilt) diff -Nru libextutils-parsexs-perl-2.220500/lib/ExtUtils/ParseXS.pm libextutils-parsexs-perl-2.220600/lib/ExtUtils/ParseXS.pm --- libextutils-parsexs-perl-2.220500/lib/ExtUtils/ParseXS.pm 2010-03-10 23:16:44.000000000 +0000 +++ libextutils-parsexs-perl-2.220600/lib/ExtUtils/ParseXS.pm 2010-07-04 19:52:37.000000000 +0000 @@ -18,7 +18,7 @@ my($XSS_work_idx, $cpp_next_tmp); use vars qw($VERSION); -$VERSION = '2.2205'; +$VERSION = '2.2206'; $VERSION = eval $VERSION if $VERSION =~ /_/; use vars qw(%input_expr %output_expr $ProtoUsed @InitFileCode $FH $proto_re $Overload $errors $Fallback @@ -74,7 +74,7 @@ ($XSS_work_idx, $cpp_next_tmp) = (0, "XSubPPtmpAAAA"); @InitFileCode = (); $FH = Symbol::gensym(); - $proto_re = "[" . quotemeta('\$%&*@;[]') . "]" ; + $proto_re = "[" . quotemeta('\$%&*@;[]_') . "]" ; $Overload = 0; $errors = 0; $Fallback = '&PL_sv_undef'; @@ -1488,6 +1488,7 @@ sub PushXSStack { + my %args = @_; # Save the current file context. push(@XSStack, { type => 'file', @@ -1498,6 +1499,8 @@ Filename => $filename, Filepathname => $filepathname, Handle => $FH, + IsPipe => scalar($filename =~ /\|\s*$/), + %args, }) ; } @@ -1543,7 +1546,7 @@ EOF $filename = $_ ; - $filepathname = "$dir/$filename"; + $filepathname = File::Spec->catfile($dir, $filename); # Prime the pump by reading the first # non-blank line @@ -1557,19 +1560,31 @@ $lastline_no = $. ; } +sub QuoteArgs { + my $cmd = shift; + my @args = split /\s+/, $cmd; + $cmd = shift @args; + for (@args) { + $_ = q(").$_.q(") if !/^\"/ && length($_) > 0; + } + return join (' ', ($cmd, @args)); + } + sub INCLUDE_COMMAND_handler () { # the rest of the current line should contain a valid command TrimWhitespace($_) ; + $_ = QuoteArgs($_) if $^O eq 'VMS'; + death("INCLUDE_COMMAND: command missing") unless $_ ; death("INCLUDE_COMMAND: pipes are illegal") if /^\s*\|/ or /\|\s*$/ ; - PushXSStack(); + PushXSStack( IsPipe => 1 ); $FH = Symbol::gensym(); @@ -1588,7 +1603,8 @@ EOF $filename = $_ ; - $filepathname = "$dir/$filename"; + $filepathname = $filename; + $filepathname =~ s/\"/\\"/g; # Prime the pump by reading the first # non-blank line @@ -1608,7 +1624,7 @@ my $data = pop @XSStack ; my $ThisFile = $filename ; - my $isPipe = ($filename =~ /\|\s*$/) ; + my $isPipe = $data->{IsPipe}; -- $IncludedFiles{$filename} unless $isPipe ; diff -Nru libextutils-parsexs-perl-2.220500/META.yml libextutils-parsexs-perl-2.220600/META.yml --- libextutils-parsexs-perl-2.220500/META.yml 2010-03-10 23:16:44.000000000 +0000 +++ libextutils-parsexs-perl-2.220600/META.yml 2010-07-04 19:52:37.000000000 +0000 @@ -17,7 +17,7 @@ provides: ExtUtils::ParseXS: file: lib/ExtUtils/ParseXS.pm - version: 2.2205 + version: 2.2206 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.2205 +version: 2.2206