Formatting with Perltidy

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1068 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 14 insertions, 13 deletions

diff --git a/upgrade-templates.pl b/upgrade-templates.pl
index d6befb4f..807a7f9a 100644
--- a/upgrade-templates.pl
+++ b/upgrade-templates.pl
@@ -6,17 +6,18 @@ $dirpath ||= 'templates';
 &process_dir($dirpath);
 
 sub process_dir {
-	my $dirpath = shift @_;
-	opendir DIR, $dirpath || die "can't open dir $dirpath for reading:$!";
-	my @entries = readdir DIR;
-	closedir DIR;
-	for $entry(@entries){
-		my $path = "$dirpath/$entry";
-		if (-d $path && $entry !~ /^\./){
-			&process_dir($path);
-		} elsif  ($entry !~ /^\./){
-			print "Processing path $path\n";
-			`perl -ibak -pe 's|\<\%(.*)\%\>|<?lsmb \$1 ?>|g' $path`
-		}
-	}
+    my $dirpath = shift @_;
+    opendir DIR, $dirpath || die "can't open dir $dirpath for reading:$!";
+    my @entries = readdir DIR;
+    closedir DIR;
+    for $entry (@entries) {
+        my $path = "$dirpath/$entry";
+        if ( -d $path && $entry !~ /^\./ ) {
+            &process_dir($path);
+        }
+        elsif ( $entry !~ /^\./ ) {
+            print "Processing path $path\n";
+            `perl -ibak -pe 's|\<\%(.*)\%\>|<?lsmb \$1 ?>|g' $path`;
+        }
+    }
 }