diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-03-26 18:21:30 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-03-26 18:21:30 +0000 |
commit | c74efdb64f25d0b45fe31a469a6bd8b11c6fe254 (patch) | |
tree | 88c3249769dee8f28eaa59789a6c2c419f4f4e9a /iurt2 | |
parent | 3c28742472a4f9ccb374797a8c5e14c2258f0d8f (diff) | |
download | iurt-c74efdb64f25d0b45fe31a469a6bd8b11c6fe254.tar iurt-c74efdb64f25d0b45fe31a469a6bd8b11c6fe254.tar.gz iurt-c74efdb64f25d0b45fe31a469a6bd8b11c6fe254.tar.bz2 iurt-c74efdb64f25d0b45fe31a469a6bd8b11c6fe254.tar.xz iurt-c74efdb64f25d0b45fe31a469a6bd8b11c6fe254.zip |
(check_media) cleanup/simplify
Diffstat (limited to 'iurt2')
-rwxr-xr-x | iurt2 | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -1292,9 +1292,9 @@ sub check_media { if (-f $synthesis_file) { plog("Parsing $synthesis_file"); if (open my $syn, "zcat $synthesis_file |") { - my @prov; local $_; while (<$syn>) { + my @prov; if (/^\@provides@(.*)/) { foreach my $p (split '@', $1) { if ($p =~ /([^[]+)(?:\[(.*)\])?/g) { @@ -1309,7 +1309,6 @@ sub check_media { foreach (@prov) { $pack_provide->{$_} = $name; } - @prov = (); } } } else { |