do not open cache file before PID checking

1 files changed, 8 insertions, 7 deletions

diff --git a/iurt2 b/iurt2
index 17ea7e2..231ca4e 100755
--- a/iurt2
+++ b/iurt2
@@ -43,13 +43,6 @@ if (@ARGV[0] eq '--check_queue') {
 my $distro_version = shift @ARGV;
 my $distro_tag = $distro_version;
 $distro_tag =~ s,/,-,g;
-my $cache = "$cache_home/iurt.$distro_tag.cache";
-print "Loading cache file $cache\n";
-eval { require $cache };
-$::rpm_srpm ||= {};
-$::failure ||= {};
-$::queue ||= {};
-$::warning ||= {};
 my $my_arch = shift @ARGV;
 my $media = shift @ARGV;
 my @special_srpm_dir = @ARGV;
@@ -101,6 +94,14 @@ open PID, ">$pidfile";
 print PID $$;
 close PID;
 
+my $cache = "$cache_home/iurt.$distro_tag.cache";
+print "Loading cache file $cache\n";
+eval { require $cache };
+$::rpm_srpm ||= {};
+$::failure ||= {};
+$::queue ||= {};
+$::warning ||= {};
+
 my %big;
 my %srpm_version;
 my @wrong_rpm;