This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Teach EU::Typemaps about the _ prototype
authorSteffen Mueller <smueller@cpan.org>
Thu, 10 Feb 2011 16:12:23 +0000 (17:12 +0100)
committerSteffen Mueller <smueller@cpan.org>
Tue, 12 Jul 2011 18:54:48 +0000 (20:54 +0200)
I am in a hurry and this makes things correct, but really, this should
maybe use EU::ParseXS' regular expression.

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

index 0499a9a..cfda24b 100644 (file)
@@ -5,7 +5,7 @@ use warnings;
 our $VERSION = '1.00';
 use Carp qw(croak);
 
-our $Proto_Regexp = "[" . quotemeta('\$%&*@;[]') . "]";
+our $Proto_Regexp = "[" . quotemeta('\$%&*@;[]_') . "]"; # TODO: Use ExtUtils::ParseXS' constant instead
 
 require ExtUtils::Typemaps::InputMap;
 require ExtUtils::Typemaps::OutputMap;