diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-22 14:28:56 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-22 14:28:56 +0000 |
| commit | 32fb2b7854b4f571a20a8804fd6ec64101553f6d (patch) | |
| tree | 3e1080bc9bc7222f3031a3744a18fc00d9a1d9b5 /lib | |
| parent | 57a264f964d3bc3cfc103b72615b68710b3a4b9a (diff) | |
| download | perl-32fb2b7854b4f571a20a8804fd6ec64101553f6d.tar.gz | |
backout change#5708; fixups for behavior of recently added -a switch;
support -k and -m switches in h2xs (from Hugo van der Sanden)
p4raw-link: @5708 on //depot/perl: ea5e7566745834b0ad6566d9ab0445e5381c11f5
p4raw-id: //depot/perl@5873
Diffstat (limited to 'lib')
| -rwxr-xr-x | lib/ExtUtils/xsubpp | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp index 4abdee90f5..5a71e89636 100755 --- a/lib/ExtUtils/xsubpp +++ b/lib/ExtUtils/xsubpp @@ -1562,7 +1562,6 @@ 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$/; |