[libcode-tidyall-perl] 08/374: remove git and svn mode for now

[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 1bffe4c31d189ffcfacbc1b91ca7e461c96dc94f
Author: Jonathan Swartz <swartz at pobox.com>
Date:   Mon Jun 4 21:37:16 2012 -0700

    remove git and svn mode for now
---
 bin/tidyall         |    4 ----
 lib/Code/TidyAll.pm |   22 ----------------------
 2 files changed, 26 deletions(-)

diff --git a/bin/tidyall b/bin/tidyall
index af3f3bf..3538c82 100755
--- a/bin/tidyall
+++ b/bin/tidyall
@@ -21,19 +21,15 @@ GetOptions(
     'cache_dir'   => \$params{cache_dir},
     'class'       => \$class,
     'data_dir'    => \$params{data_dir},
-    'g|git-mode'  => \$git_mode,
     'c|conf'      => \$params{conf_file},
     'h|help'      => \$help,
     'r|recursive' => \$params{recursive},
-    's|svn-mode'  => \$svn_mode,
 ) or usage();
 
 usage("-c|--conf required") if !$params{conf_file};
 die "cannot load '$class'" unless can_load($class);
 
 my @paths = @ARGV or usage("path(s) required");
- at paths = uniq( map { $class->files_from_svn_status($_) } @paths ) if $svn_mode;
- at paths = uniq( map { $class->files_from_git_status($_) } @paths ) if $git_mode;
 
 my $ct = $class->new(%params);
 foreach my $path (@paths) {
diff --git a/lib/Code/TidyAll.pm b/lib/Code/TidyAll.pm
index 56d2066..ae4db7e 100644
--- a/lib/Code/TidyAll.pm
+++ b/lib/Code/TidyAll.pm
@@ -126,28 +126,6 @@ sub process_file {
     }
 }
 
-sub files_from_svn_status {
-    my ( $class, $dir ) = @_;
-
-    my $buffer = `cd $dir; svn status`;
-    my @paths = ( $buffer =~ /^[AM]\s+(.*)/gm );
-    return $class->_files_from_vcs_status( $dir, @paths );
-}
-
-sub files_from_git_status {
-    my ( $class, $dir ) = @_;
-
-    my $buffer = `cd $dir; git status`;
-    my @paths = ( $buffer =~ /(?:new file|modified):\s+(.*)/g );
-    return $class->_files_from_vcs_status( $dir, @paths );
-}
-
-sub _files_from_vcs_status {
-    my (@files) = @_;
-
-    return grep { -f } uniq( map { "$dir/$_" } @files );
-}
-
 sub _find_file_upwards {
     my ( $class, $search_dir, $search_file ) = @_;
 

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