From b14087d92f6c5d2430f97902e84d7f24027044bc Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Tue, 11 Oct 2016 10:43:36 +0200
Subject: perl_checker cleanups

---
 iurt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'iurt')

diff --git a/iurt b/iurt
index 49f49dc..085f3cc 100755
--- a/iurt
+++ b/iurt
@@ -938,7 +938,7 @@ retry:
 	    if (system("cp $chroot_tmp/home/$luser/rpmbuild/RPMS/*/*.rpm $local_spool &>/dev/null")) {
 		# If copy fails (like disk full), report a failure and delete partially copied files
 		plog('ERROR', "ERROR: could not copy rpm files from $chroot_tmp/home/$luser/rpmbuild/RPMS/ to $local_spool ($!)");
-		for my $package (@packages) {
+		foreach my $package (@packages) {
 		    unlink "$local_spool/$package";
 		}
 	    }
-- 
cgit v1.2.1