From 0dfce261a8138eab809b4c312624cb42f9b57fa9 Mon Sep 17 00:00:00 2001
From: Wakaba <wakaba@suikawiki.org>
Date: Fri, 25 Aug 2023 15:28:02 +0900
Subject: [PATCH] workaround for cpanm quirks

---
 bin/pmbp.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/bin/pmbp.pl b/bin/pmbp.pl
index 1f26356..8e9a407 100755
--- a/bin/pmbp.pl
+++ b/bin/pmbp.pl
@@ -2355,7 +2355,7 @@ ($$)
                   ($args->{skip_satisfied} ? '--skip-satisfied' : ()),
                   qw(--notest --cascade-search),
                   ($args->{scandeps} ? ('--scandeps', '--format=json', '--force') : ()));
-    push @option, '--dev'; # if $args->{dev};
+    push @option, '--dev' if $args->{dev};
     push @option, '--force' if $args->{force};
     push @option, '--info' if $args->{info};
     push @option, '--verbose' if $Verbose > 1 and
@@ -2412,7 +2412,8 @@ ($$)
     }
 
     ## Let cpanm not use Web API, as it slows down operations.
-    push @option, '--mirror-only';
+    ## This option forces |--dev| ignored.
+    push @option, '--mirror-only' unless $args->{dev};
 
     ## Don't rely on LWP
     push @option, '--no-lwp';