Support [] style prototypes.

p4raw-id: //depot/perl@12726

diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp
index 77e6dba..3fbb365 100755 (executable)
--- a/lib/ExtUtils/xsubpp
+++ b/lib/ExtUtils/xsubpp
@@ -98,7 +98,7 @@ perl(1), perlxs(1), perlxstut(1)
 
 =cut
 
-require 5.002;
+require 5.0;
 use Cwd;
 use vars '$cplusplus';
 use vars '%v';
@@ -124,7 +124,7 @@ $FH = 'File0000' ;
 
 $usage = "Usage: xsubpp [-v] [-C++] [-except] [-prototypes] [-noversioncheck] [-nolinenumbers] [-nooptimize] [-noinout] [-noargtypes] [-s pattern] [-typemap typemap]... file.xs\n";
 
-$proto_re = "[" . quotemeta('\$%&*@;') . "]" ;
+$proto_re = "[" . quotemeta('\$%&*@;[]') . "]" ;
 
 $except = "";
 $WantPrototypes = -1 ;