From 666fd833584fe2e3618a397fe9d9a9bdf4c5b94b Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Thu, 26 Apr 2007 18:00:56 +0000
Subject: Doing a simple Perltidy commit so that I can evaluate differences
 between the branches and make sure patches are up to date

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1103 4979c152-3d1c-0410-bac9-87ea11338e46
---
 dists/win32/shebang-activeperl.pl | 20 ++++++++++----------
 dists/win32/shebang-vanilla.pl    | 20 ++++++++++----------
 dists/win32/wix/uuidgen.pl        | 10 +++++-----
 3 files changed, 25 insertions(+), 25 deletions(-)

(limited to 'dists/win32')

diff --git a/dists/win32/shebang-activeperl.pl b/dists/win32/shebang-activeperl.pl
index a0621839..b3c6ac14 100644
--- a/dists/win32/shebang-activeperl.pl
+++ b/dists/win32/shebang-activeperl.pl
@@ -1,18 +1,18 @@
 #!c:\perl\bin\perl
-# Use this script to convert the beginnings of files to the path to ActivePerl 
+# Use this script to convert the beginnings of files to the path to ActivePerl
 # if you are installing with ActivePerl.
 
-  opendir DIR, ".";
-  @perlfiles = grep /\.pl/, readdir DIR;
-  closedir DIR;
+opendir DIR, ".";
+@perlfiles = grep /\.pl/, readdir DIR;
+closedir DIR;
 
-  foreach $file (@perlfiles) {
+foreach $file (@perlfiles) {
     open FH, '+<', "$file";
-    
+
     @file = <FH>;
 
-    seek(FH, 0, 0);
-    truncate(FH, 0);
+    seek( FH, 0, 0 );
+    truncate( FH, 0 );
 
     $line = shift @file;
 
@@ -20,5 +20,5 @@
     print FH @file;
 
     close(FH);
-    
-  }
+
+}
diff --git a/dists/win32/shebang-vanilla.pl b/dists/win32/shebang-vanilla.pl
index 9921a723..6c8a5c95 100644
--- a/dists/win32/shebang-vanilla.pl
+++ b/dists/win32/shebang-vanilla.pl
@@ -1,18 +1,18 @@
 #!c:\vanilla-perl\perl\bin\perl
-# Use this script to convert the beginnings of files to the path to ActivePerl 
+# Use this script to convert the beginnings of files to the path to ActivePerl
 # if you are installing with Vanilla Perl.
 
-  opendir DIR, ".";
-  @perlfiles = grep /\.pl/, readdir DIR;
-  closedir DIR;
+opendir DIR, ".";
+@perlfiles = grep /\.pl/, readdir DIR;
+closedir DIR;
 
-  foreach $file (@perlfiles) {
+foreach $file (@perlfiles) {
     open FH, '+<', "$file";
-    
+
     @file = <FH>;
 
-    seek(FH, 0, 0);
-    truncate(FH, 0);
+    seek( FH, 0, 0 );
+    truncate( FH, 0 );
 
     $line = shift @file;
 
@@ -20,5 +20,5 @@
     print FH @file;
 
     close(FH);
-    
-  }
+
+}
diff --git a/dists/win32/wix/uuidgen.pl b/dists/win32/wix/uuidgen.pl
index 3713739f..fceb004f 100644
--- a/dists/win32/wix/uuidgen.pl
+++ b/dists/win32/wix/uuidgen.pl
@@ -1,5 +1,5 @@
-use Data::UUID;
-$ug = new Data::UUID;
-$uuid = $ug->create();
-print $ug->to_string($uuid);
-print "\n";
\ No newline at end of file
+use Data::UUID;
+$ug   = new Data::UUID;
+$uuid = $ug->create();
+print $ug->to_string($uuid);
+print "\n";
-- 
cgit v1.2.3