diff options
| author | Arne Georg Gleditsch <argggh@lxr.linpro.no> | 2007-12-04 13:07:07 +0100 |
|---|---|---|
| committer | Arne Georg Gleditsch <argggh@lxr.linpro.no> | 2007-12-04 13:07:07 +0100 |
| commit | 42321d209faa0ba4c93d2523f8644575ea094bba (patch) | |
| tree | 4ff5ab1d20b121f7b53e889c4dee8cbd2be5206a | |
| parent | 638561d6543da2ccf981ceab456e0b64789a5524 (diff) | |
Ignore non-existing directory entries (dangling symlinks..)
| -rw-r--r-- | lib/LXRng/Repo/Plain/Directory.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/LXRng/Repo/Plain/Directory.pm b/lib/LXRng/Repo/Plain/Directory.pm index 788f6bc..6025142 100644 --- a/lib/LXRng/Repo/Plain/Directory.pm +++ b/lib/LXRng/Repo/Plain/Directory.pm @@ -40,8 +40,9 @@ sub contents { next if $node =~ /^\.|~$|\.orig$/; next if $node eq 'CVS'; - push(@files, LXRng::Repo::Plain::File->new($$self{'name'}.$node, - $$self{'path'}.$node)); + my $file = LXRng::Repo::Plain::File->new($$self{'name'}.$node, + $$self{'path'}.$node); + push(@files, $file) if $file; } closedir($dir); |