diff options
| author | Francois Pons <fpons@mandriva.com> | 2003-07-16 13:10:00 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2003-07-16 13:10:00 +0000 |
| commit | 1467a12cd3060ba0f1f1df33f2009bd4890aabfe (patch) | |
| tree | bc5bdbca530eddad6720e59de2873f3768d0e657 | |
| parent | 9dfc4a84bccd82c292277217ec1b6fe59e6b5490 (diff) | |
| download | perl-URPM-1467a12cd3060ba0f1f1df33f2009bd4890aabfe.tar perl-URPM-1467a12cd3060ba0f1f1df33f2009bd4890aabfe.tar.gz perl-URPM-1467a12cd3060ba0f1f1df33f2009bd4890aabfe.tar.bz2 perl-URPM-1467a12cd3060ba0f1f1df33f2009bd4890aabfe.tar.xz perl-URPM-1467a12cd3060ba0f1f1df33f2009bd4890aabfe.zip | |
fixed cache not taken into account.
| -rw-r--r-- | URPM/Build.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/URPM/Build.pm b/URPM/Build.pm index d4921f2..8dcb893 100644 --- a/URPM/Build.pm +++ b/URPM/Build.pm @@ -27,7 +27,7 @@ sub parse_rpms_build_headers { opendir DIR, $dir; while (my $file = readdir DIR) { my ($fullname, $filename) = $file =~ /(.+?-[^:\-]+-[^:\-]+\.[^:\-\.]+)(?::(\S+))?$/ or next; - my @stat = stat "$dir/$_"; + my @stat = stat "$dir/$file"; $cache{$filename || $fullname} = { file => $file, size => $stat[7], time => $stat[9], |