diff options
| -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"; |