[libcode-tidyall-perl] 49/374: make sure each file is a file and not a symlink

[Jonas Smedegaard]

This is an automated email from the git hooks/post-receive script.

js pushed a commit to branch master
in repository libcode-tidyall-perl.

commit c9dae214a684cb92f47b404081c5dda7c8f88af9
Author: Jonathan Swartz <swartz at pobox.com>
Date:   Tue Jun 26 05:46:52 2012 -0700

    make sure each file is a file and not a symlink
---
 lib/Code/TidyAll.pm |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Code/TidyAll.pm b/lib/Code/TidyAll.pm
index 3a2b769..889c54c 100644
--- a/lib/Code/TidyAll.pm
+++ b/lib/Code/TidyAll.pm
@@ -275,7 +275,7 @@ sub _find_matched_files {
 
     my %matched_files;
     foreach my $plugin ( @{ $self->plugin_objects } ) {
-        my @selected = $self->_zglob( $plugin->select );
+        my @selected = grep { -f && !-l } $self->_zglob( $plugin->select );
         if ( defined( $plugin->ignore ) ) {
             my %is_ignored = map { ( $_, 1 ) } $self->_zglob( $plugin->ignore );
             @selected = grep { !$is_ignored{$_} } @selected;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libcode-tidyall-perl.git