From 13c35f4a1143bec2ae453a89644b4d33667a1f1a Mon Sep 17 00:00:00 2001 From: Steffen Mueller Date: Sat, 19 Feb 2011 17:01:26 +0100 Subject: check_conditional_preprocessor_statements is not a method Also, lose some unsightly undef()s. --- dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm | 33 +++++++++++++-------------- 1 file changed, 16 insertions(+), 17 deletions(-) (limited to 'dist') diff --git a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm index d8752d54c4..456fb0763a 100644 --- a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm +++ b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm @@ -279,22 +279,21 @@ EOM if $self->{line}->[0] =~ /^\s/; # initialize info arrays - undef(%{ $self->{args_match} }); - undef(%{ $self->{var_types} }); - undef(%{ $self->{defaults} }); - undef(%{ $self->{arg_list} }); - undef(@{ $self->{proto_arg} }); - undef($self->{processing_arg_with_types}); - undef(%{ $self->{argtype_seen} }); - undef(%{ $self->{in_out} }); - undef(%{ $self->{lengthof} }); - undef($self->{proto_in_this_xsub}); - undef($self->{scope_in_this_xsub}); - undef($self->{interface}); - $self->{interface_macro} = 'XSINTERFACE_FUNC'; - $self->{interface_macro_set} = 'XSINTERFACE_FUNC_SET'; - $self->{ProtoThisXSUB} = $self->{WantPrototypes}; - $self->{ScopeThisXSUB} = 0; + foreach my $member (qw(args_match var_types defaults arg_list + argtype_seen in_out lengthof)) + { + $self->{$member} = {}; + } + $self->{proto_arg} = []; + $self->{processing_arg_with_types} = undef; + $self->{proto_in_this_xsub} = undef; + $self->{scope_in_this_xsub} = undef; + $self->{interface} = undef; + $self->{interface_macro} = 'XSINTERFACE_FUNC'; + $self->{interface_macro_set} = 'XSINTERFACE_FUNC_SET'; + $self->{ProtoThisXSUB} = $self->{WantPrototypes}; + $self->{ScopeThisXSUB} = 0; + my $xsreturn = 0; $_ = shift(@{ $self->{line} }); @@ -552,7 +551,7 @@ EOF push(@{ $self->{line} }, "$END:"); push(@{ $self->{line_no} }, $self->{line_no}->[-1]); $_ = ''; - $self->check_conditional_preprocessor_statements(); + check_conditional_preprocessor_statements(); while (@{ $self->{line} }) { $self->CASE_handler($_) if $self->check_keyword("CASE"); print Q(<<"EOF"); -- cgit v1.2.1