[libcode-tidyall-perl] 82/374: simplify process_files

Jonas Smedegaard js at alioth.debian.org
Sun Sep 29 22:25:53 UTC 2013


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 60d42cd4340f9b1ffeaaaf6a3558264236069d4e
Author: Jonathan Swartz <swartz at pobox.com>
Date:   Fri Jul 6 03:42:03 2012 -0700

    simplify process_files
---
 lib/Code/TidyAll.pm |    8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/lib/Code/TidyAll.pm b/lib/Code/TidyAll.pm
index d8f7ed3..540ae2c 100644
--- a/lib/Code/TidyAll.pm
+++ b/lib/Code/TidyAll.pm
@@ -151,13 +151,7 @@ sub process_all {
 sub process_files {
     my ( $self, @files ) = @_;
 
-    my $error_count = 0;
-    my @results;
-    foreach my $file (@files) {
-        $file = realpath($file);
-        push( @results, $self->process_file($file) );
-    }
-    return @results;
+    return map { $self->process_file( realpath($_) ) } @files;
 }
 
 sub process_file {

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



More information about the Pkg-perl-cvs-commits mailing list