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 | |
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*()
-rw-r--r-- | lib/Iurt/Chroot.pm | 4 | ||||
-rwxr-xr-x | ulri | 10 |
2 files changed, 3 insertions, 11 deletions
diff --git a/lib/Iurt/Chroot.pm b/lib/Iurt/Chroot.pm index 9ea6362..4c57dcf 100644 --- a/lib/Iurt/Chroot.pm +++ b/lib/Iurt/Chroot.pm @@ -38,9 +38,7 @@ sub clean_chroot { _clean_mounts($run, $config, $chroot); # Do not run rm if there is something still mounted there - open(my $FP, "/proc/mounts") or die $!; - my @list = grep { /$chroot/ } <$FP>; - close($FP); + my @list = grep { /$chroot/ } cat_or_die('/proc/mounts'); if (@list) { # Still referenced plog('ERROR', "Not cleaning chroot (mount points still in use)"); @@ -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; } |