From: Artur Bergman <sky@nanisky.com>
Date: Sun, 28 Oct 2001 08:00:48 +0000 (+0000)
Subject: Support [] style prototypes.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c2452817bba58a2cb577b1ed636309441032e9cf;p=p5sagit%2Fp5-mst-13.2.git

Support [] style prototypes.

p4raw-id: //depot/perl@12726
---

diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp
index 77e6dba..3fbb365 100755
--- 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 ;