summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/latexindent/LatexIndent/OptionalArgument.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/scripts/latexindent/LatexIndent/OptionalArgument.pm')
-rw-r--r--Master/texmf-dist/scripts/latexindent/LatexIndent/OptionalArgument.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/Master/texmf-dist/scripts/latexindent/LatexIndent/OptionalArgument.pm b/Master/texmf-dist/scripts/latexindent/LatexIndent/OptionalArgument.pm
index a44ca52a51d..2b18f3c966b 100644
--- a/Master/texmf-dist/scripts/latexindent/LatexIndent/OptionalArgument.pm
+++ b/Master/texmf-dist/scripts/latexindent/LatexIndent/OptionalArgument.pm
@@ -19,6 +19,7 @@ use warnings;
use LatexIndent::Tokens qw/%tokens/;
use LatexIndent::TrailingComments qw/$trailingCommentRegExp/;
use LatexIndent::Switches qw/$is_t_switch_active $is_tt_switch_active/;
+use LatexIndent::LogFile qw/$logger/;
use Exporter qw/import/;
our @ISA = "LatexIndent::Document"; # class inheritance, Programming Perl, pg 321
our @EXPORT_OK = qw/find_optional_arguments/;
@@ -46,8 +47,8 @@ sub find_optional_arguments{
# pick out the optional arguments
while(${$self}{body} =~ m/$optArgRegExp\h*($trailingCommentRegExp)*(.*)/s){
# log file output
- $self->logger("Optional argument found, body in ${$self}{name}",'heading') if $is_t_switch_active;
- $self->logger("(last argument)") if($9 eq '' and $is_t_switch_active);
+ $logger->trace("*Optional argument found, body in ${$self}{name}") if $is_t_switch_active;
+ $logger->trace("(last argument)") if($9 eq '' and $is_t_switch_active);
${$self}{body} =~ s/
$optArgRegExp(\h*)($trailingCommentRegExp)*(.*)