From b7679e6f9d44762ba7a856564e881e105443501e Mon Sep 17 00:00:00 2001 From: Martin Mares Date: Fri, 12 Oct 2012 22:46:21 +0200 Subject: [PATCH] Whitespace fixes Suggested by Tomas Malecek --- UCW/Temple.pm | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/UCW/Temple.pm b/UCW/Temple.pm index 82d264f..98aea96 100644 --- a/UCW/Temple.pm +++ b/UCW/Temple.pm @@ -52,8 +52,8 @@ sub error($;$) { } sub get_nested($$$) { - my ($r,$left,$right) = @_; - pos $$r = pos($$r)-1; + my ($r, $left, $right) = @_; + pos $$r = pos($$r) - 1; my $z = ""; my $nest = 0; do { @@ -128,7 +128,7 @@ sub parse_string($$) { $current_file_name = $name; $current_string = \$t; pos $t = 0; - for(;;) { + for (;;) { $current_pos = pos $t; if ($t =~ /\G([^\@]+)/cgs) { out $1 if $cond[0] > 0; @@ -181,14 +181,12 @@ sub parse_file($) { parse_string($text, $name); } -sub start(;$) -{ +sub start(;$) { $arguments = $_[0]; @cond = (1); } -sub finish() -{ +sub finish() { $#cond and error "Unterminated \@if (depth $#cond)"; } -- 2.39.5