From: Martin Mares <mj@ucw.cz>
Date: Fri, 12 Oct 2012 20:46:21 +0000 (+0200)
Subject: Whitespace fixes
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=b7679e6f9d44762ba7a856564e881e105443501e;p=temple.git

Whitespace fixes

Suggested by Tomas Malecek
---

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)";
 }