diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-08-02 00:27:41 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-08-02 00:27:41 +0000 |
| commit | cac43651e843be88611bc1ff413dea8c1f4e9a6c (patch) | |
| tree | cbb31185fd145587c8633be61e64b1ec2c1df063 | |
| parent | 17a0eb83d851331bad1e2c1185d1751910197846 (diff) | |
| download | perl-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
| -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 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"; |