From: Paul Johnson <paul@pjcj.net>
Date: Wed, 3 Jun 1998 19:07:55 +0000 (+0100)
Subject: Applied relevant parts of:
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f480b56a0d1b186307bdd093ee87046a310389aa;p=p5sagit%2Fp5-mst-13.2.git

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
---

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";