diff options
| author | Chad Elliott <elliottc@objectcomputing.com> | 2019-05-20 10:31:28 -0500 |
|---|---|---|
| committer | Chad Elliott <elliottc@objectcomputing.com> | 2019-05-20 10:31:28 -0500 |
| commit | c2c20c97a3441ea05df3cf05aeed96e8c0c59996 (patch) | |
| tree | 541d7bab6de9c43a06a09292faea28738bea0e8e /modules/TemplateParser.pm | |
| parent | d07b201048ef6556e64da7ff0c4d3e3e70f23359 (diff) | |
| download | MPC-c2c20c97a3441ea05df3cf05aeed96e8c0c59996.tar.gz | |
Replaced tabs with spaces
Diffstat (limited to 'modules/TemplateParser.pm')
| -rw-r--r-- | modules/TemplateParser.pm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/modules/TemplateParser.pm b/modules/TemplateParser.pm index 39f9762e..779b0750 100644 --- a/modules/TemplateParser.pm +++ b/modules/TemplateParser.pm @@ -34,10 +34,10 @@ use vars qw(@ISA); # calling perform_ for a nested function are written to the output) # 5 means that the get_ method performs the get_ and doif_ functionality # -# Perl Function Parameter Type Return Type -# get_ string string or array -# perform_ array reference array -# doif_ array reference boolean +# Perl Function Parameter Type Return Type +# get_ string string or array +# perform_ array reference array +# doif_ array reference boolean # my $get_type = 1 << 0; my $perform_type = 1 << 1; @@ -92,7 +92,7 @@ my %keywords = ('if' => 0, 'deref' => 0, 'set' => 0, 'is_relative' => $get_type|$doif_type|$get_combined_type, - 'extension' => $get_type, + 'extension' => $get_type, ); my %target_type_vars = ('type_is_static' => 1, @@ -389,7 +389,7 @@ sub get_value { if (!defined $value && $name =~ /^(.*)\->(\w+)/) { my $pre = $1; my $post = $2; - my $base = $self->get_value($pre); + my $base = $self->get_value($pre); if (defined $base) { $value = $self->{'prjc'}->get_special_value( @@ -2047,8 +2047,8 @@ sub prepare_parameters { if (defined $fo) { $outdir = $self->tp_dirname($$output[$i]); if (!($outdir ne '' && $indir ne $outdir && $fo ne $outdir)) { - $$output[$i] = ($fo eq '.' ? '' : $fo . '/') . - $self->tp_basename($$output[$i]); + $$output[$i] = ($fo eq '.' ? '' : $fo . '/') . + $self->tp_basename($$output[$i]); } } $$output[$i] =~ s/\//\\/g if ($self->{'cslashes'}); |