3 files changed, 25 insertions, 25 deletions
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";