workaround for cpanm quirks

pawjy · Aug 25, 2023 · 0dfce26 · 0dfce26
1 parent e1c219c
commit 0dfce26
Showing 1 changed file with 3 additions and 2 deletions.
diff --git 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';