From ca406d0865853a4cc8be9804c89c49b783a92093 Mon Sep 17 00:00:00 2001 From: "James E. Keenan" Date: Thu, 1 Apr 2010 07:08:35 -0400 Subject: Add $Module_cname to $self. --- dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm index 39919916f9..5bdf93efb1 100644 --- a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm +++ b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm @@ -38,7 +38,7 @@ our ( # The scalars in the line below remain (for the time being) 'our' variables # because I suspect they will pose the same problems as those in the statement # above. -our ($newXS, $proto, $Module_cname, ); +our ($newXS, $proto, ); our $self = {}; @@ -976,8 +976,8 @@ MAKE_FETCHMETHOD_WORK EOF print Q(<<"EOF"); -#XS(boot_$Module_cname); /* prototype to pass -Wmissing-prototypes */ -#XS(boot_$Module_cname) +#XS(boot_$self->{Module_cname}); /* prototype to pass -Wmissing-prototypes */ +#XS(boot_$self->{Module_cname}) EOF print Q(<<"EOF"); @@ -1674,7 +1674,7 @@ sub fetch_para { $Package = defined($2) ? $2 : ''; # keep -w happy $self->{Prefix} = defined($3) ? $3 : ''; # keep -w happy $self->{Prefix} = quotemeta $self->{Prefix}; - ($Module_cname = $Module) =~ s/\W/_/g; + ($self->{Module_cname} = $Module) =~ s/\W/_/g; ($Packid = $Package) =~ tr/:/_/; $self->{Packprefix} = $Package; $self->{Packprefix} .= "::" if $self->{Packprefix} ne ""; -- cgit v1.2.1