projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
integrate cfgperl contents into mainline
[p5sagit/p5-mst-13.2.git]
/
lib
/
ExtUtils
/
xsubpp
diff --git
a/lib/ExtUtils/xsubpp
b/lib/ExtUtils/xsubpp
index
96e1bb4
..
085e852
100755
(executable)
--- a/
lib/ExtUtils/xsubpp
+++ b/
lib/ExtUtils/xsubpp
@@
-1544,6
+1544,7
@@
sub generate_init {
unless defined($type_kind{$type});
($ntype = $type) =~ s/\s*\*/Ptr/g;
+ $ntype =~ s/^\s*const\b\s*//;
($subtype = $ntype) =~ s/(?:Array)?(?:Ptr)?$//;
$tk = $type_kind{$type};
$tk =~ s/OBJ$/REF/ if $func_name =~ /DESTROY$/;