diff options
| author | Artur Bergman <sky@nanisky.com> | 2001-10-28 08:00:48 +0000 |
|---|---|---|
| committer | Artur Bergman <sky@nanisky.com> | 2001-10-28 08:00:48 +0000 |
| commit | c2452817bba58a2cb577b1ed636309441032e9cf (patch) | |
| tree | 4f786a7df35200b63df4486652b5b4a461eecf6e /lib/ExtUtils/xsubpp | |
| parent | d52413bedb04151817ef65ddea35db5f6e936b6f (diff) | |
| download | perl-c2452817bba58a2cb577b1ed636309441032e9cf.tar.gz | |
Support [] style prototypes.
p4raw-id: //depot/perl@12726
Diffstat (limited to 'lib/ExtUtils/xsubpp')
| -rwxr-xr-x | lib/ExtUtils/xsubpp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp index 77e6dba3ad..3fbb3654d8 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 ; |