diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-03-28 13:32:21 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-03-28 13:32:21 +0000 |
| commit | c750a3ec3b866067ab46dbcc9083205d823047c3 (patch) | |
| tree | df8ac921c8928fe673a259a2f22aa1f53156cb92 /lib/ExtUtils | |
| parent | cfe4554026dfe078c2d7c706ace0e327f16b2c05 (diff) | |
| download | perl-c750a3ec3b866067ab46dbcc9083205d823047c3.tar.gz | |
Initial devel changes.
Pseudo-hashes. Optional strong typing. RESTART {}.
p4raw-id: //depot/perl@2
Diffstat (limited to 'lib/ExtUtils')
| -rwxr-xr-x | lib/ExtUtils/xsubpp | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp index 8554bb5054..742e6d385d 100755 --- a/lib/ExtUtils/xsubpp +++ b/lib/ExtUtils/xsubpp @@ -767,8 +767,9 @@ while (fetch_para()) { unless $func_header =~ /^(?:([\w:]*)::)?(\w+)\s*\(\s*(.*?)\s*\)\s*$/s; ($class, $func_name, $orig_args) = ($1, $2, $3) ; - ($pname = $func_name) =~ s/^($Prefix)?/$Packprefix/; - $Full_func_name = "${Packid}_$func_name"; + ($fname = $func_name) =~ s/^($Prefix)?//; + $pname = $Packprefix . $fname; + $Full_func_name = "${Packid}_$fname"; # Check for duplicate function definition for $tmp (@XSStack) { @@ -816,7 +817,7 @@ while (fetch_para()) { # print function header print Q<<"EOF"; -#XS(XS_${Packid}_$func_name) +#XS(XS_$Full_func_name) #[[ # dXSARGS; EOF |