diff options
| author | Paul Buetow <paul@buetow.org> | 2011-04-26 19:13:48 +0000 |
|---|---|---|
| committer | Paul Buetow <paul@buetow.org> | 2011-04-26 19:13:48 +0000 |
| commit | d87c0e16f9b880ce38e1ff6a39f22ba49263aef0 (patch) | |
| tree | e9fa42aa49bcf532ca75fc17928aaff850815e1c /Xerl/Page/Configure.pm | |
| parent | 4aae3132de0ff117290cdc5a8cebeb5bf467942f (diff) | |
code cleanup using perltidy
Diffstat (limited to 'Xerl/Page/Configure.pm')
| -rw-r--r-- | Xerl/Page/Configure.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/Xerl/Page/Configure.pm b/Xerl/Page/Configure.pm index 9429f25..9fa3002 100644 --- a/Xerl/Page/Configure.pm +++ b/Xerl/Page/Configure.pm @@ -42,9 +42,9 @@ sub parse($) { my Xerl::Tools::FileIO $file = Xerl::Tools::FileIO->new( 'path' => $self->get_config() ); - if (-1 == $file->fslurp()) { - $self->set_shutdown(1); - return undef; + if ( -1 == $file->fslurp() ) { + $self->set_shutdown(1); + return undef; } my $re = qr/^(.+?) *=(.+?) *\n?$/; @@ -87,8 +87,8 @@ sub defaults($) { Xerl::Tools::FileIO->new( 'path' => $redirect ); $file->fslurp(); my $location = $file->shift(); - Xerl::Main::Global::REDIRECT( $location ); - $self->set_shutdown(1); + Xerl::Main::Global::REDIRECT($location); + $self->set_shutdown(1); } my $alias = $self->get_hostroot() . 'alias:' . $self->get_host(); if ( -f $alias ) { @@ -153,7 +153,7 @@ sub insertxmlvars($$) { return $self unless defined $element - or $element->get_array() eq 'ARRAY'; + or $element->get_array() eq 'ARRAY'; my $text; for ( @{ $element->get_array() } ) { |