[libcode-tidyall-perl] 104/374: add -I

[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 004ddab92ec00a0c5bfede747603aca21ff4eb88
Author: Jonathan Swartz <swartz at pobox.com>
Date:   Wed Jul 18 10:46:16 2012 -0700

    add -I
---
 bin/tidyall |   10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/bin/tidyall b/bin/tidyall
index f6c7adc..a2e745d 100755
--- a/bin/tidyall
+++ b/bin/tidyall
@@ -15,7 +15,7 @@ sub usage {
     Pod::Usage::pod2usage( { verbose => 1 } );
 }
 
-my ( %params, $help, $all );
+my ( %params, $help, $all, $inc_dirs );
 
 GetOptions(
     'backup-ttl=i'    => \$params{backup_ttl},
@@ -33,10 +33,13 @@ GetOptions(
     'm|mode=s'        => \$params{mode},
     'q|quiet'         => \$params{quiet},
     'v|verbose'       => \$params{verbose},
+    'I'               => \$inc_dirs,
 ) or usage();
 
 Pod::Usage::pod2usage( { verbose => 2 } ) if $help;
 
+unshift( @INC, split( /\s*,\s*/, $inc_dirs ) ) if defined($inc_dirs);
+
 %params = slice_def( \%params );
 
 $params{conf_file} ||= "$params{root_dir}/tidyall.ini" if ( $params{root_dir} );
@@ -278,6 +281,11 @@ Suppress output except for errors.
 
 Show extra output.
 
+=item -I
+
+Add libraries to @INC, as Perl's -I. Useful if --tidyall-class or plugins are
+in an alternate lib directory.
+
 =item --backup-ttl     
 
 Amount of time before backup files can be purged; defaults to "1h". Can be any

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