diff options
author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2014-04-19 12:58:53 +0200 |
---|---|---|
committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2014-04-19 12:59:04 +0200 |
commit | a231645f12e640171070a9f7fbcc737fd58afe29 (patch) | |
tree | 07488567c1677164b0ea8a1028958218735189a5 /ulri | |
parent | 4edab9788a284886731f41a1bb522ba5d814a142 (diff) | |
download | iurt-a231645f12e640171070a9f7fbcc737fd58afe29.tar iurt-a231645f12e640171070a9f7fbcc737fd58afe29.tar.gz iurt-a231645f12e640171070a9f7fbcc737fd58afe29.tar.bz2 iurt-a231645f12e640171070a9f7fbcc737fd58afe29.tar.xz iurt-a231645f12e640171070a9f7fbcc737fd58afe29.zip |
simplify using cat*()
Diffstat (limited to 'ulri')
-rwxr-xr-x | ulri | 10 |
1 files changed, 2 insertions, 8 deletions
@@ -280,14 +280,8 @@ sub todo_func { if ($r =~ /(\d{14}\.\w+\.\w+\.\d+)_.*\.deps$/) { my $prefix = $1; - my @deps; - - open my $FILE, "<$todo/$f/$m/$s/$r"; - while (my $line = <$FILE>) { - chomp $line; - plog('DEBUG', "Adding dependency $line ($prefix)"); - push @deps,$line; - } + my @deps = map { chomp(); $_ } cat_("$todo/$f/$m/$s/$r"); + plog('DEBUG', "Adding dependency $_ ($prefix)") foreach @deps; $pkg_tree{$prefix}{deps} = \@deps; } |