perl_checker cleanup

1 files changed, 4 insertions, 4 deletions

diff --git a/iurt b/iurt
index 7ab127f..2c30f56 100755
--- a/iurt
+++ b/iurt
@@ -170,7 +170,7 @@ $run{todo} = [];
     sub { $run{clean} = \@_ }, "Activating clean chroot flag" ],
     [ "", "parallel", 1, "<n>",
     "Build up to <n> packages in parallel",
-    sub {($run{parallel}) = @_; 1}, "Enabling parallel build" ],
+    sub { ($run{parallel}) = @_; 1 }, "Enabling parallel build" ],
     [ "d", "dir", -1, "", 
     "Directory where to find packages to rebuild", 
     sub { $run{extra_dir} = \@_; 1 }, "Adding extra source packages directories" ],
@@ -762,7 +762,7 @@ my $_s = sub {
 $run{main} = 1;
 
 sub rebuild_one {
-    my ($dir, $srpm, $status) = @_;
+    my ($dir, $srpm, $_status) = @_;
     # CM: Set argv[0] (in the C sense) to something we can easily spot and
     #     understand in process list
     $0 = "Iurt: $run{distro_tag} $run{my_arch} $run{media} $srpm";
@@ -1015,7 +1015,7 @@ do {
 		delete $children{$pid} if $pid > 0;
 	    }
 	    # TODO: check load, free memory and free disk
-	    my $pid = fork;
+	    $pid = fork();
 	    if ($pid) { #parent
 		$children{$pid} = 1;
 	    } elsif ($pid == 0) { #child
@@ -1023,7 +1023,7 @@ do {
 		rebuild_one($dir, $srpm, $status);
 		write_status($local_spool, \%run, $srpm);
 		clean_chroot($chroot_tmp, \%run, $config);
-		exit;
+		exit();
 	    } else {
 		die "could not fork";
 	    }