From 0c7b5269e0dd8a43a4cd8a9bd23191b27d2d9933 Mon Sep 17 00:00:00 2001 From: Andreas Guldstrand Date: Thu, 26 Nov 2015 13:19:22 +0100 Subject: Don't return a file as if it were a directory --- SBO-Lib/lib/SBO/Lib.pm | 1 + 1 file changed, 1 insertion(+) (limited to 'SBO-Lib/lib/SBO/Lib.pm') diff --git a/SBO-Lib/lib/SBO/Lib.pm b/SBO-Lib/lib/SBO/Lib.pm index 5ec03eb..81a796f 100644 --- a/SBO-Lib/lib/SBO/Lib.pm +++ b/SBO-Lib/lib/SBO/Lib.pm @@ -706,6 +706,7 @@ sub get_src_dir { FIRST: while (my $ls = readdir $tsbo_dh) { next FIRST if $ls =~ /^\.[\.]{0,1}$/; next FIRST if $ls =~ /^package-/; + next FIRST unless -d "$tmpd/$ls"; my $found = 0; seek $fh, 0, 0; SECOND: while (my $line = <$fh>) { -- cgit v1.2.3