From cac43651e843be88611bc1ff413dea8c1f4e9a6c Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Mon, 2 Aug 2004 00:27:41 +0000 Subject: Silence a compilation warning --- URPM/Build.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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"; -- cgit v1.2.1