diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-06-02 04:47:10 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-06-02 04:47:10 +0000 |
| commit | 20ce7b12268a3d32b5b246928de5084322e709cf (patch) | |
| tree | 395ce45dee07dabd92553cbcdad9b91e37e8ae49 /lib | |
| parent | 0221c164222f9d91820826506118f46ffa08dd46 (diff) | |
| download | perl-20ce7b12268a3d32b5b246928de5084322e709cf.tar.gz | |
remove _() non-ansism
p4raw-id: //depot/perl@3518
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ExtUtils/Embed.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/ExtUtils/Embed.pm b/lib/ExtUtils/Embed.pm index 4b56e88b26..7b240ccc99 100644 --- a/lib/ExtUtils/Embed.pm +++ b/lib/ExtUtils/Embed.pm @@ -75,7 +75,7 @@ sub xsinit { @mods = grep(!$seen{$_}++, @mods); print $fh &xsi_header(); - print $fh "EXTERN_C void xs_init _(($xsinit_proto));\n\n"; + print $fh "EXTERN_C void xs_init ($xsinit_proto);\n\n"; print $fh &xsi_protos(@mods); print $fh "\nEXTERN_C void\nxs_init($xsinit_proto)\n{\n"; @@ -127,7 +127,7 @@ sub xsi_protos { my($mname, $cname); ($mname = $pname) =~ s!/!::!g; ($cname = $pname) =~ s!/!__!g; - my($ccode) = "EXTERN_C void boot_${cname} _(($boot_proto));\n"; + my($ccode) = "EXTERN_C void boot_${cname} ($boot_proto);\n"; next if $seen{$ccode}++; push(@retval, $ccode); } |