diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2000-11-28 21:13:14 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-29 15:41:36 +0000 |
| commit | cb79badd91dded24306a8c1551cce98a7b6c0b76 (patch) | |
| tree | b650456fbaa6509c6026aa00ab1d5ec403483ab6 /lib/ExtUtils/xsubpp | |
| parent | 0768512c1c388195d89e987b4c5fbb79e0c00e0e (diff) | |
| download | perl-cb79badd91dded24306a8c1551cce98a7b6c0b76.tar.gz | |
Re: [PATCH 5.7.0] OUT keyword for xsubpp
Date: Wed, 29 Nov 2000 02:13:14 -0500
Message-ID: <20001129021314.A2532@monk.mps.ohio-state.edu>
OUT keyword nits.
Subject: Re: [PATCH 5.7.0] OUT keyword for xsubpp
From: Ilya Zakharevich <ilya@math.ohio-state.edu>
Date: Wed, 29 Nov 2000 03:09:04 -0500
Message-ID: <20001129030904.A2754@monk.mps.ohio-state.edu>
OUT and IN_OUT documentation.
p4raw-id: //depot/perl@7915
Diffstat (limited to 'lib/ExtUtils/xsubpp')
| -rwxr-xr-x | lib/ExtUtils/xsubpp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp index 6724c5932b..bb8f3aab04 100755 --- a/lib/ExtUtils/xsubpp +++ b/lib/ExtUtils/xsubpp @@ -1079,7 +1079,7 @@ while (fetch_para()) { $orig_args =~ s/\\\s*/ /g; # process line continuations - my %only_output; + my %only_outlist; if ($process_argtypes and $orig_args =~ /\S/) { my $args = "$orig_args ,"; if ($args =~ /^( (??{ $C_arg }) , )* $ /x) { @@ -1105,7 +1105,7 @@ while (fetch_para()) { $arg_types{$name} = $arg; $_ = "$name$default"; } - $only_output{$_} = 1 if $out_type =~ /^OUT/; + $only_outlist{$_} = 1 if $out_type eq "OUTLIST"; push @outlist, $name if $out_type =~ /OUTLIST$/; $in_out{$name} = $out_type if $out_type; } @@ -1119,7 +1119,7 @@ while (fetch_para()) { if ($process_inout and s/^(IN|IN_OUTLIST|OUTLIST|IN_OUT|OUT)\s+//) { my $out_type = $1; next if $out_type eq 'IN'; - $only_output{$_} = 1 if $out_type =~ /^OUT/; + $only_outlist{$_} = 1 if $out_type eq "OUTLIST"; push @outlist, $name if $out_type =~ /OUTLIST$/; $in_out{$_} = $out_type; } @@ -1144,7 +1144,7 @@ while (fetch_para()) { last; } } - if ($only_output{$args[$i]}) { + if ($only_outlist{$args[$i]}) { push @args_num, undef; } else { push @args_num, ++$num_args; |