From: Moritz Bunkus Date: Fri, 3 May 2013 11:18:18 +0000 (+0200) Subject: Kosmetik: Einrückung nach Entfernung umliegender "if ()" X-Git-Tag: release-3.1.0beta1~425 X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=9c1048cc631d86456cf684d7c8db4d66e8f162c3;p=kivitendo-erp.git Kosmetik: Einrückung nach Entfernung umliegender "if ()" --- diff --git a/SL/LXDebug.pm b/SL/LXDebug.pm index 057ec06a1..13f86a71a 100644 --- a/SL/LXDebug.pm +++ b/SL/LXDebug.pm @@ -152,29 +152,29 @@ sub warn { sub dump { my ($self, $level, $name, $variable, %options) = @_; - my $password; - if ($variable && ('Form' eq ref $variable) && defined $variable->{password}) { - $password = $variable->{password}; - $variable->{password} = 'X' x 8; - } - - my $dumper = Data::Dumper->new([$variable]); - $dumper->Sortkeys(1); - $dumper->Indent(2); - $dumper->$_($options{$_}) for keys %options; - my $output = $dumper->Dump(); - $self->message($level, "dumping ${name}:\n" . $output); - - $variable->{password} = $password if (defined $password); - - # Data::Dumper does not reset the iterator belonging to this hash - # if 'Sortkeys' is true. Therefore clear the iterator manually. - # See "perldoc -f each". - if ($variable && (('HASH' eq ref $variable) || ('Form' eq ref $variable))) { - keys %{ $variable }; - } - - return $output; + my $password; + if ($variable && ('Form' eq ref $variable) && defined $variable->{password}) { + $password = $variable->{password}; + $variable->{password} = 'X' x 8; + } + + my $dumper = Data::Dumper->new([$variable]); + $dumper->Sortkeys(1); + $dumper->Indent(2); + $dumper->$_($options{$_}) for keys %options; + my $output = $dumper->Dump(); + $self->message($level, "dumping ${name}:\n" . $output); + + $variable->{password} = $password if (defined $password); + + # Data::Dumper does not reset the iterator belonging to this hash + # if 'Sortkeys' is true. Therefore clear the iterator manually. + # See "perldoc -f each". + if ($variable && (('HASH' eq ref $variable) || ('Form' eq ref $variable))) { + keys %{ $variable }; + } + + return $output; } sub dump_yaml {