This is an automated email from the git hooks/post-receive script.
kanashiro-guest pushed a commit to branch master
in repository carton.
commit d55af0fd0aaf29e50ca7425b05de998eb4ed73ba
Author: Tatsuhiko Miyagawa <miyag...@bulknews.net>
Date: Thu May 30 22:07:18 2013 +0900
remove configure
---
lib/Carton.pm | 5 -----
lib/Carton/CLI.pm | 9 ++-------
2 files changed, 2 insertions(+), 12 deletions(-)
diff --git a/lib/Carton.pm b/lib/Carton.pm
index cdcf5df..ccdea79 100644
--- a/lib/Carton.pm
+++ b/lib/Carton.pm
@@ -27,11 +27,6 @@ sub new {
}, $class;
}
-sub configure {
- my($self, %args) = @_;
- %{$self} = (%$self, %args);
-}
-
sub use_local_mirror {
my $self = shift;
$self->{mirror} = $self->local_cache;
diff --git a/lib/Carton/CLI.pm b/lib/Carton/CLI.pm
index d7b5200..3a5c609 100644
--- a/lib/Carton/CLI.pm
+++ b/lib/Carton/CLI.pm
@@ -135,10 +135,7 @@ sub cmd_bundle {
my($self, @args) = @_;
$self->parse_options(\@args, "p|path=s" => sub { $self->carton->{path} =
$_[1] });
-
- $self->carton->configure(
- mirror_file => $self->mirror_file,
- );
+ $self->carton->{mirror_file} = $self->mirror_file;
my $lock = $self->find_lock;
my $cpanfile = $self->find_cpanfile;
@@ -163,9 +160,7 @@ sub cmd_install {
"cached!" => \$self->{use_local_mirror},
);
- $self->carton->configure(
- mirror_file => $self->mirror_file,
- );
+ $self->carton->{mirror_file} = $self->mirror_file;
if ($self->{use_local_mirror}) {
$self->carton->use_local_mirror;
--
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
