diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-03-27 17:15:08 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-03-27 17:15:08 +0000 |
| commit | ada1534f6420d00de86437e57c921133c5c61ceb (patch) | |
| tree | 7db618a2d228e19ea651ae1078529344bec937e8 /urpm/md5sum.pm | |
| parent | 412e8c970890f3412d8b67e1d42e96f786aeb211 (diff) | |
| download | urpmi-ada1534f6420d00de86437e57c921133c5c61ceb.tar urpmi-ada1534f6420d00de86437e57c921133c5c61ceb.tar.gz urpmi-ada1534f6420d00de86437e57c921133c5c61ceb.tar.bz2 urpmi-ada1534f6420d00de86437e57c921133c5c61ceb.tar.xz urpmi-ada1534f6420d00de86437e57c921133c5c61ceb.zip | |
silent perl_checker
Diffstat (limited to 'urpm/md5sum.pm')
| -rw-r--r-- | urpm/md5sum.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/urpm/md5sum.pm b/urpm/md5sum.pm index ed8eb6e7..906066fe 100644 --- a/urpm/md5sum.pm +++ b/urpm/md5sum.pm @@ -31,7 +31,7 @@ sub versioned_media_info_file { my ($urpm, $medium, $basename) = @_; my $md5sums = $medium->{parsed_md5sum} or $urpm->{log}("$medium->{name} has no md5sum"), return; - my @l = map { $md5sums->{$_} eq $md5sums->{$basename} && /^(\d{8}-\d{6})-\Q$basename\E$/ ? $1 : () } keys %$md5sums; + my @l = map { $md5sums->{$_} eq $md5sums->{$basename} && /^(\d{8}-\d{6})-\Q$basename\E$/ ? $1 : @{[]} } keys %$md5sums; if (@l == 0) { $urpm->{debug}("no versioned $basename for medium $medium->{name}") if $urpm->{debug}; |