This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ignore const for the purposes of typemaps (from Hugo van der Sanden)
authorGurusamy Sarathy <gsar@cpan.org>
Mon, 13 Mar 2000 20:34:38 +0000 (20:34 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Mon, 13 Mar 2000 20:34:38 +0000 (20:34 +0000)
p4raw-id: //depot/perl@5708

lib/ExtUtils/xsubpp

index 96e1bb4..085e852 100755 (executable)
@@ -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$/;