diff options
| author | Paul Johnson <paul@pjcj.net> | 1998-06-03 20:07:55 +0100 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-10 06:26:39 +0000 |
| commit | f480b56a0d1b186307bdd093ee87046a310389aa (patch) | |
| tree | 204d1bba9ca27d1811f655f4eaa95a898dc63b9e /lib/ExtUtils/xsubpp | |
| parent | 56ee16601913744d6296171b01432040a63238f8 (diff) | |
| download | perl-f480b56a0d1b186307bdd093ee87046a310389aa.tar.gz | |
Applied relevant parts of:
Message-Id: <199806031807.TAA04100@west-tip.transeda.com>
Subject: [PATCH] Enhancing xsubpp's support for C++
p4raw-id: //depot/perl@1094
Diffstat (limited to 'lib/ExtUtils/xsubpp')
| -rwxr-xr-x | lib/ExtUtils/xsubpp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp index 378e4811ac..7194ad2790 100755 --- a/lib/ExtUtils/xsubpp +++ b/lib/ExtUtils/xsubpp @@ -932,9 +932,10 @@ while (fetch_para()) { $func_header = shift(@line); blurt ("Error: Cannot parse function definition from '$func_header'"), next PARAGRAPH - unless $func_header =~ /^(?:([\w:]*)::)?(\w+)\s*\(\s*(.*?)\s*\)\s*$/s; + unless $func_header =~ /^(?:([\w:]*)::)?(\w+)\s*\(\s*(.*?)\s*\)\s*(const)?\s*$/s; ($class, $func_name, $orig_args) = ($1, $2, $3) ; + $class = "$4 $class" if $4; ($pname = $func_name) =~ s/^($Prefix)?/$Packprefix/; ($clean_func_name = $func_name) =~ s/^$Prefix//; $Full_func_name = "${Packid}_$clean_func_name"; |