| Subject: | [PATCH] use C type instead of mapped perl type for return declarations |
| Date: | Mon, 08 Feb 2010 00:13:43 +0900 |
| To: | bug-ExtUtils-XSBuilder [...] rt.cpan.org |
| From: | Ansgar Burchardt <ansgar [...] 43-1.org> |
Hi,
the attached patch was introduced by Angus Lees in the Debian package for
ExtUtils-XSBuilder. Please consider applying it.
Regards,
Ansgar
From: Angus Lees <gus@debian.org>
Date: Mon, 10 Mar 2003 22:47:03 +1100
Subject: use C type instead of mapped perl type for return declarations
Patch WrapXS::get_function to use C type instead of mapped perl type for
return declarations.
--- libextutils-xsbuilder-perl.orig/XSBuilder/WrapXS.pm
+++ libextutils-xsbuilder-perl/XSBuilder/WrapXS.pm
@@ -557,7 +557,8 @@
$name =~ /^DESTROY$/ ? 'void' : $func->{return_type};
my $retdecl = @$retargs?(join "\n",
- (map { my $type = $self -> cname($_->{class}) ; $type =~ s/\*$//; ' ' . $type . " $_->{name};"} @$retargs),
+ # TypeMap->map_args has already stripped a * from retargs
+ (map { my $type = $_->{rtype} ; $type =~ s/^const\s+//; ' ' . $type . " $_->{name};"} @$retargs),
#' ' . $self -> cname($return_type) . ' RETVAL',
''):'';