aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2003-07-16 13:10:00 +0000
committerFrancois Pons <fpons@mandriva.com>2003-07-16 13:10:00 +0000
commit1467a12cd3060ba0f1f1df33f2009bd4890aabfe (patch)
treebc5bdbca530eddad6720e59de2873f3768d0e657
parent9dfc4a84bccd82c292277217ec1b6fe59e6b5490 (diff)
downloadperl-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.pm2
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],