aboutsummaryrefslogtreecommitdiffstats
path: root/URPM/Build.pm
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-08-02 00:27:41 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-08-02 00:27:41 +0000
commitcac43651e843be88611bc1ff413dea8c1f4e9a6c (patch)
treecbb31185fd145587c8633be61e64b1ec2c1df063 /URPM/Build.pm
parent17a0eb83d851331bad1e2c1185d1751910197846 (diff)
downloadperl-URPM-cac43651e843be88611bc1ff413dea8c1f4e9a6c.tar
perl-URPM-cac43651e843be88611bc1ff413dea8c1f4e9a6c.tar.gz
perl-URPM-cac43651e843be88611bc1ff413dea8c1f4e9a6c.tar.bz2
perl-URPM-cac43651e843be88611bc1ff413dea8c1f4e9a6c.tar.xz
perl-URPM-cac43651e843be88611bc1ff413dea8c1f4e9a6c.zip
Silence a compilation warning
Diffstat (limited to 'URPM/Build.pm')
-rw-r--r--URPM/Build.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/URPM/Build.pm b/URPM/Build.pm
index b40b005..0ace0ce 100644
--- a/URPM/Build.pm
+++ b/URPM/Build.pm
@@ -23,7 +23,7 @@ sub parse_rpms_build_headers {
#- examine cache if it contains any headers which will be much faster to read
#- than parsing rpm file directly.
unless ($options{clean}) {
- opendir my $dirh, $dir;
+ opendir my $dirh, "$dir";
while (defined (my $file = readdir $dirh)) {
my ($fullname, $filename) = $file =~ /(.+?-[^:\-]+-[^:\-]+\.[^:\-\.]+)(?::(\S+))?$/ or next;
my @stat = stat "$dir/$file";