From 9e846d7b36124087708f08a10bb677a878875f92 Mon Sep 17 00:00:00 2001 From: Oswald Buddenhagen Date: Tue, 27 Jul 2010 19:28:33 +0200 Subject: fix epic fail from 4ba6646 Reviewed-by: joerg --- bin/syncqt | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/bin/syncqt b/bin/syncqt index eda36d5..1e553dc 100755 --- a/bin/syncqt +++ b/bin/syncqt @@ -994,14 +994,12 @@ if($check_includes) { for (keys(%modules)) { #iteration info my $lib = $_; - my $dir = "$modules{$lib}"; - { - my $current_dir = "$_"; + { #calc subdirs - my @subdirs = ($current_dir); + my @subdirs = ($modules{$lib}); foreach (@subdirs) { my $subdir = "$_"; - opendir DIR, "$subdir"; + opendir DIR, "$subdir" or die "Huh, directory ".$subdir." cannot be opened."; while(my $t = readdir(DIR)) { push @subdirs, "$subdir/$t" if(-d "$subdir/$t" && !($t eq ".") && !($t eq "..") && !($t eq ".obj") && -- cgit v0.12