Whitespace fixes

Suggested by Tomas Malecek

diff --git a/UCW/Temple.pm b/UCW/Temple.pm
index 82d264f11a7989153443757b976ca317f1565f4e..98aea96d9077860e5333925e8c235afd9822df75 100644 (file)
--- 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)";
 }