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 <miyag...@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 _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits