From f480b56a0d1b186307bdd093ee87046a310389aa Mon Sep 17 00:00:00 2001 From: Paul Johnson Date: Wed, 3 Jun 1998 20:07:55 +0100 Subject: [PATCH] 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 --- lib/ExtUtils/xsubpp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp index 378e481..7194ad2 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"; -- 2.7.4