[carton] 207/472: remove uninstall method which is actually unused. Updated check doc as well

[Lucas Kanashiro]

This is an automated email from the git hooks/post-receive script.

kanashiro-guest pushed a commit to branch master
in repository carton.

commit e3f32eacbbb0f9ac39d87c8b3063f2f07f0024b6
Author: Tatsuhiko Miyagawa <miyagawa at bulknews.net>
Date:   Thu May 30 17:34:42 2013 +0900

    remove uninstall method which is actually unused. Updated check doc as well
---
 lib/Carton.pm            | 23 -----------------------
 lib/Carton/Doc/Check.pod | 18 ------------------
 2 files changed, 41 deletions(-)

diff --git a/lib/Carton.pm b/lib/Carton.pm
index 16e3b8b..f54f641 100644
--- a/lib/Carton.pm
+++ b/lib/Carton.pm
@@ -284,29 +284,6 @@ sub _check_satisfies {
     }
 }
 
-sub uninstall {
-    my($self, $lock, $module) = @_;
-
-    my $meta = $lock->{modules}{$module};
-    (my $path_name = $meta->{name}) =~ s!::!/!g;
-
-    my $path = Cwd::realpath($self->{path});
-    my $packlist = "$path/lib/perl5/$Config{archname}/auto/$path_name/.packlist";
-
-    open my $fh, "<", $packlist or die "Couldn't locate .packlist for $meta->{name}";
-    while (<$fh>) {
-        # EUMM merges with site and perl library paths
-        chomp;
-        next unless /^\Q$path\E/;
-        unlink $_ or warn "Couldn't unlink $_: $!";
-    }
-
-    unlink $packlist;
-    if ($meta->{dist}) { # safety guard not to rm -r auto/meta
-        File::Path::rmtree("$self->{path}/lib/perl5/$Config{archname}/.meta/$meta->{dist}");
-    }
-}
-
 1;
 __END__
 
diff --git a/lib/Carton/Doc/Check.pod b/lib/Carton/Doc/Check.pod
index b497c2c..78ef3d0 100644
--- a/lib/Carton/Doc/Check.pod
+++ b/lib/Carton/Doc/Check.pod
@@ -21,21 +21,3 @@ your local environment, C<carton check> will warn you about this:
   JSON (2.00)
 
 You can run C<carton install> again to reinstall these missing dependencies.
-
-=head2 UNUSED MODULES
-
-If one of the modules in the local environment (i.e. I<local> library
-path) are not specified in your I<cpanfile>, you'll get a warning like
-this:
-
-  $ carton check
-  Following modules are found in local but couldn't be tracked from your cpanfile
-  CGI.pm-3.55
-    FCGI-0.73
-
-This means you probably installed this module in an ad-hoc mode so you
-have to add it to I<cpanfile>, or you originally declared the
-dependencies but found out that you don't need it, so deleted from
-your I<cpanfile>. In that case you can uninstall the module with the
-L<uninstall|Plack::Doc::Uninstall> command.
-

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