[libcode-tidyall-perl] 308/374: handle local files in -l/--list

Jonas Smedegaard js at alioth.debian.org
Sun Sep 29 22:26:40 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 069e0c91da3708b873c617310b9e8bb2ee5f4275
Author: Jonathan Swartz <swartz at pobox.com>
Date:   Tue Oct 9 15:13:54 2012 -0700

    handle local files in -l/--list
---
 lib/Code/TidyAll.pm |    1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/Code/TidyAll.pm b/lib/Code/TidyAll.pm
index abdebaf..55d1a82 100644
--- a/lib/Code/TidyAll.pm
+++ b/lib/Code/TidyAll.pm
@@ -194,6 +194,7 @@ sub list_files {
     my ( $self, @files ) = @_;
 
     foreach my $file (@files) {
+        $file = realpath($file) || rel2abs($file);
         my $path = $self->_small_path($file);
         if ( my @plugins = $self->plugins_for_path($path) ) {
             printf( "%s (%s)\n", $path, join( ", ", map { $_->name } @plugins ) );

-- 
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