@@ -3041,18 +3041,18 @@ package ExtUtils::ParseXS; # XXX tmp
3041
3041
# Process the lines following the OUTPUT: keyword.
3042
3042
3043
3043
sub OUTPUT_handler {
3044
- my ExtUtils::ParseXS $self = shift ;
3044
+ my ExtUtils::ParseXS $self = shift ;
3045
3045
3046
- my $line = shift ;
3046
+ my $line = shift ;
3047
3047
3048
- # In this loop: process each line until the next keyword or end of
3049
- # paragraph
3048
+ # In this loop: process each line until the next keyword or end of
3049
+ # paragraph
3050
3050
3051
- for (; $line !~ / ^$ExtUtils::ParseXS::BLOCK_regexp /o ; $line = shift (@{ $self -> {line } })) {
3052
- $self -> OUTPUT_handler_line($line );
3053
- } # foreach line in OUTPUT block
3051
+ for (; $line !~ / ^$ExtUtils::ParseXS::BLOCK_regexp /o ; $line = shift (@{ $self -> {line } })) {
3052
+ $self -> OUTPUT_handler_line($line );
3053
+ } # foreach line in OUTPUT block
3054
3054
3055
- $_ = $line ;
3055
+ $_ = $line ;
3056
3056
}
3057
3057
3058
3058
@@ -3063,14 +3063,14 @@ package ExtUtils::ParseXS; # XXX tmp
3063
3063
# process a single line from an OUTPUT section
3064
3064
3065
3065
sub OUTPUT_handler_line {
3066
- my ExtUtils::ParseXS $self = shift ;
3067
- my $line = shift ;
3066
+ my ExtUtils::ParseXS $self = shift ;
3067
+ my $line = shift ;
3068
3068
3069
3069
return unless $line =~ / \S / ; # skip blank lines
3070
3070
3071
3071
if ($line =~ / ^\s *SETMAGIC\s *:\s *(ENABLE|DISABLE)\s */ ) {
3072
- $self -> {xsub_SETMAGIC_state } = ($1 eq " ENABLE" ? 1 : 0);
3073
- return ;
3072
+ $self -> {xsub_SETMAGIC_state } = ($1 eq " ENABLE" ? 1 : 0);
3073
+ return ;
3074
3074
}
3075
3075
3076
3076
# Expect lines of the two forms
@@ -3083,34 +3083,33 @@ sub OUTPUT_handler_line {
3083
3083
$self -> {xsub_sig }{names }{$outarg };
3084
3084
3085
3085
if ($param && $param -> {in_output }) {
3086
- $self -> blurt(" Error: duplicate OUTPUT parameter '$outarg ' ignored" );
3087
- return ;
3086
+ $self -> blurt(" Error: duplicate OUTPUT parameter '$outarg ' ignored" );
3087
+ return ;
3088
3088
}
3089
3089
3090
3090
if ($outarg eq " RETVAL" and $self -> {xsub_seen_NO_OUTPUT }) {
3091
- $self -> blurt(" Error: can't use RETVAL in OUTPUT when NO_OUTPUT declared" );
3092
- return ;
3091
+ $self -> blurt(" Error: can't use RETVAL in OUTPUT when NO_OUTPUT declared" );
3092
+ return ;
3093
3093
}
3094
3094
3095
3095
if ( !$param # no such param or, for RETVAL, RETVAL was void
3096
- # not bound to an arg which can be updated
3097
- or $outarg ne " RETVAL" && !$param -> {arg_num })
3096
+ # not bound to an arg which can be updated
3097
+ or $outarg ne " RETVAL" && !$param -> {arg_num })
3098
3098
{
3099
- $self -> blurt(" Error: OUTPUT $outarg not a parameter" );
3100
- return ;
3099
+ $self -> blurt(" Error: OUTPUT $outarg not a parameter" );
3100
+ return ;
3101
3101
}
3102
3102
3103
-
3104
3103
$param -> {in_output } = 1;
3105
3104
$param -> {do_setmagic } = $outarg eq ' RETVAL'
3106
- ? 0 # RETVAL never needs magic setting
3107
- : $self -> {xsub_SETMAGIC_state };
3105
+ ? 0 # RETVAL never needs magic setting
3106
+ : $self -> {xsub_SETMAGIC_state };
3108
3107
$param -> {output_code } = $outcode if length $outcode ;
3109
3108
3110
3109
if ($outarg eq ' RETVAL' ) {
3111
- # Postpone processing the RETVAL line to last (it's left to the
3112
- # caller to finish).
3113
- return ;
3110
+ # Postpone processing the RETVAL line to last (it's left to the
3111
+ # caller to finish).
3112
+ return ;
3114
3113
}
3115
3114
3116
3115
$param -> as_output_code($self );
0 commit comments