perl_checker cleanups

1 files changed, 1 insertions, 1 deletions

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";
 		}
 	    }