perl_checker cleanups

1 files changed, 3 insertions, 3 deletions

diff --git a/fork-distribution b/fork-distribution
index b91c8eb..2ea6bc0 100755
--- a/fork-distribution
+++ b/fork-distribution
@@ -12,7 +12,7 @@ use Cwd;
 GetOptions(
 ) or pod2usage(1);
 
-my ($source,$dest) = @ARGV;
+my ($source, $dest) = @ARGV;
 
 $dest or do {
     warn "No dest given";
@@ -34,11 +34,11 @@ sub find_distrib {
         while (my $subdir = readdir($handle)) {
             $subdir eq '..' and next;
             my $d = MDV::Distribconf->new("$topdir/$subdir");
-            if ($d->load){
+            if ($d->load) {
                 push(@distpath, $subdir);
             }
         }
-        closedir($handle)
+        closedir($handle);
     } else {
         die "Cannot open $topdir: $!";
     }