diff options
| author | Andreas Guldstrand <andreas.guldstrand@gmail.com> | 2015-11-26 13:19:22 +0100 |
|---|---|---|
| committer | Andreas Guldstrand <andreas.guldstrand@gmail.com> | 2015-11-26 13:19:22 +0100 |
| commit | 0c7b5269e0dd8a43a4cd8a9bd23191b27d2d9933 (patch) | |
| tree | a89a2c883663749111af77af960d1376668ec8f9 | |
| parent | 58563bded8fb54fde18bac1d35b9598bb9ac8ef2 (diff) | |
| download | sbotools2-0c7b5269e0dd8a43a4cd8a9bd23191b27d2d9933.tar.xz | |
Don't return a file as if it were a directory
| -rw-r--r-- | SBO-Lib/lib/SBO/Lib.pm | 1 |
1 files changed, 1 insertions, 0 deletions
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>) { |