Reapply the patch that tought EU::ParseXS about _ protos

Even including a test!

diff --git a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Constants.pm b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Constants.pm
index 2d6172c..4b8d90f 100644 (file)
--- a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Constants.pm
+++ b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Constants.pm
@@ -25,7 +25,7 @@ Nothing is exported.  Use fully qualified variable names.
 
 our @InitFileCode = ();
 our $FH           = Symbol::gensym();
-our $proto_re     = "[" . quotemeta('\$%&*@;[]') . "]";
+our $proto_re     = "[" . quotemeta('\$%&*@;[]_') . "]";
 our $Overload     = 0;
 our $errors       = 0;
 our $Fallback     = '&PL_sv_undef';

diff --git a/dist/ExtUtils-ParseXS/t/105-valid_proto_string.t b/dist/ExtUtils-ParseXS/t/105-valid_proto_string.t
index 2ba4e32..926ebe6 100644 (file)
--- a/dist/ExtUtils-ParseXS/t/105-valid_proto_string.t
+++ b/dist/ExtUtils-ParseXS/t/105-valid_proto_string.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 use strict;
 use warnings;
-use Test::More tests =>  5;
+use Test::More tests =>  6;
 use lib qw( lib );
 use ExtUtils::ParseXS::Utilities qw(
   valid_proto_string
@@ -28,3 +28,8 @@ is( $output, 0, "Got expected value for <$input>" );
 $input = '[alpha]';
 $output = valid_proto_string($input);
 is( $output, 0, "Got expected value for <$input>" );
+
+$input = '[_]';
+$output = valid_proto_string($input);
+is( $output, $input, "Got expected value for <$input>" );
+