diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-13 20:34:38 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-13 20:34:38 +0000 |
| commit | ea5e7566745834b0ad6566d9ab0445e5381c11f5 (patch) | |
| tree | b51da293200e195b89fc3b704adcc77293f11f7b /lib/ExtUtils | |
| parent | 96989be3bc50b6c1465b0f1ebc67c335197c6e3e (diff) | |
| download | perl-ea5e7566745834b0ad6566d9ab0445e5381c11f5.tar.gz | |
ignore const for the purposes of typemaps (from Hugo van der Sanden)
p4raw-id: //depot/perl@5708
Diffstat (limited to 'lib/ExtUtils')
| -rwxr-xr-x | lib/ExtUtils/xsubpp | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp index 96e1bb44c4..085e852afc 100755 --- 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$/; |