simplify using output()

1 files 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);
 	    }
 	}