From f4e247130f7cbbb043f7eaa8dcba2bd9a3d11a0f Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Wed, 24 Nov 2021 14:53:39 +0100
Subject: simplify using output()

---
 iurt | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/iurt b/iurt
index c4393c4..25bb515 100755
--- a/iurt
+++ b/iurt
@@ -862,8 +862,7 @@ retry:
 	$urpmi->install_packages($srpm, $chroot_tmp, $local_spool, 'binary_test', "[REBUILD] binaries packages generated from $srpm do not install correctly", { maintainer => $maintainer } ,@packages) or return $srpm;
     } else  {
 	my $successfile = "$local_spool/log/$srpm/binary_test_$srpm-1.log";
-	open my $f, ">$successfile";
-	print $f "$srpm build ok";
+	output($successfile, "$srpm build ok");
     }
     
     if ($run{debug}) {
@@ -890,11 +889,7 @@ retry:
 		}
 	    } else {
 		my $packagesfile = "$local_spool/log/$srpm/packages.$run{my_arch}.$run{run}.log";
-		open my $f, ">$packagesfile";
-		foreach my $package (@packages) {
-		    $package =~ s|.*/||;
-		    print $f "$package\n";
-	        }
+		output($packagesfile, map { m|([^/]*)$|; "$1\n" } @packages);
 	    }
 	}
 	
-- 
cgit v1.2.1