diff options
-rwxr-xr-x | iurt | 9 |
1 files changed, 2 insertions, 7 deletions
@@ -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); } } |