File tree Expand file tree Collapse file tree 1 file changed +6
-5
lines changed Expand file tree Collapse file tree 1 file changed +6
-5
lines changed Original file line number Diff line number Diff line change @@ -197,7 +197,7 @@ sub def_params {
197197 # Return define parameters
198198 my $self = shift ;
199199 my $val = $self -> {options }-> defparams(@_ );
200- # printf "DEFEXISTS @_ -> %s\n", $val if $self->{debug};
200+ # printf "DEFPARAMS @_ -> %s\n", $val if $self->{debug};
201201 $val = " " if !defined $val ;
202202 return $val ;
203203}
@@ -395,11 +395,12 @@ Called with each `undefineall. Defaults to use options object.
395395
396396Called with each `define. Defaults to use options object.
397397
398- =item $self->def_exists (I<defname > )
398+ =item $self->def_params (I<defname > )
399399
400- Called to determine if the define exists. Return true if the define
401- exists, or argument list with leading parenthesis if the define has
402- arguments. Defaults to use options object.
400+ Called to determine if the define exists and the parameters it expects.
401+ Return true if the define exists, or argument list with leading parenthesis
402+ if the define has arguments. Defaults to use options object's defparams
403+ method.
403404
404405=item $self->def_substitute(I<string > )
405406
You can’t perform that action at this time.
0 commit comments