From 9f3b18be368df8a48a8bff81191896e591fcfa14 Mon Sep 17 00:00:00 2001
From: Tatsuhiko Miyagawa <miyagawa@bulknews.net>
Date: Sun, 7 Apr 2013 02:08:22 -0700
Subject: [PATCH] Use --mirror-only for migrate-modules

This would be much faster since it won't hit cpanmetadb for each module
when there're hundreds of modules to migrate.
---
 bin/plenv | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bin/plenv b/bin/plenv
index 8b80601..c127517 100755
--- a/bin/plenv
+++ b/bin/plenv
@@ -463,7 +463,7 @@ sub CMD_migrate_modules {
     install_cpanm($dst);
     open my $srcfh, "-|", $srcperl, '-MExtUtils::Installed', '-e', 'print $_, "\n" for ExtUtils::Installed->new->modules'
         or die "Cannot exec: $!";
-    open my $dstfh, "|-", $dstcpanm
+    open my $dstfh, "|-", $dstcpanm, '--mirror-only'
         or die "Cannot exec $dstcpanm: $!";
     while (<$srcfh>) {
         print $dstfh $_;