[libcode-tidyall-perl] 84/374: tweak

[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 3602fe8e518ee2781990b3ba526f00dc109d0773
Author: Jonathan Swartz <swartz at pobox.com>
Date:   Fri Jul 6 03:54:58 2012 -0700

    tweak
---
 lib/Code/TidyAll.pm |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/Code/TidyAll.pm b/lib/Code/TidyAll.pm
index d7ef610..fe08283 100644
--- a/lib/Code/TidyAll.pm
+++ b/lib/Code/TidyAll.pm
@@ -195,10 +195,11 @@ sub process_source {
         return Code::TidyAll::Result->new( path => $path, state => 'no_match' );
     }
 
-    my $orig_contents = $contents;
-    $contents = $self->prefilter->($contents) if $self->prefilter;
     my $basename = basename($path);
     my $error;
+
+    my $orig_contents = $contents;
+    $contents = $self->prefilter->($contents) if $self->prefilter;
     foreach my $plugin (@plugins) {
         try {
             my $new_contents = $plugin->process_source_or_file( $contents, $basename );

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