ExtUtils::ParseXS: Fix INCLUDE: $cmd |
authorSteffen Mueller <smueller@cpan.org>
Tue, 6 Sep 2011 06:20:54 +0000 (08:20 +0200)
committerSteffen Mueller <smueller@cpan.org>
Tue, 6 Sep 2011 06:43:26 +0000 (08:43 +0200)
INCLUDE: $cmd | is the old, deprecated way of reading the output of
a command into a stream of XS code. Unfortunately, it was accidentally
broken by fe7ae66bc2e4a8bbc90ba0d852e511116d6e97bb by replacing the
two-arg open with a three-arg open that opens in read-mode.
This change fixes the issue, reported as CPAN RT #70213.

dist/ExtUtils-ParseXS/Changes
dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm

index 0556dfa..be780b0 100644 (file)
@@ -1,5 +1,7 @@
 Revision history for Perl extension ExtUtils::ParseXS.
 
+  - Fixed "INCLUDE: $cmd |", CPAN RT #70213
+
 3.04_03 - Sun Sep  4 18:49:00 CET 2011
 
   - By #defining PERL_EUPXS_ALWAYS_EXPORT or
index 1d9a85f..36b88a5 100644 (file)
@@ -1540,7 +1540,7 @@ sub INCLUDE_handler {
   $self->{FH} = Symbol::gensym();
 
   # open the new file
-  open ($self->{FH}, '<', $_) or $self->death("Cannot open '$_': $!");
+  open($self->{FH}, $_) or $self->death("Cannot open '$_': $!");
 
   print Q(<<"EOF");
 #