update pin source : update working dir sources when pin url changes

src/client/opamAuxCommands.ml

@@ -302,7 +302,7 @@ let autopin_aux st ?quiet ?(for_view=false) ?recurse ?subpath atom_or_local_list
           let pinned_pkg = OpamPinned.package st name in
           OpamSwitchState.primary_url st pinned_pkg = Some target
           &&
-          (* For `opam show`, we need to check is the opam file changed to
+          (* For `opam show`, we need to check does the opam file changed to
              perform a simulated pin if so *)
           (not for_view ||
            match
@@ -442,6 +442,16 @@ let autopin st ?(simulate=false) ?quiet ?recurse ?subpath atom_or_local_list =
     in
     st
   in
+  let already_pinned_diff_url =
+    (* is pinned but no in already pinned because not same url *)
+    OpamStd.List.filter_map (fun (n,u,s,_) ->
+        try
+          if OpamPackage.Set.mem (OpamPinned.package st n) already_pinned_set then
+            None else Some (n,u,s)
+        with Not_found -> None
+      ) to_pin
+  in
+
   let st, pins =
     if simulate then simulate_local_pinnings ?quiet st to_pin else
     try
@@ -460,6 +470,10 @@ let autopin st ?(simulate=false) ?quiet ?recurse ?subpath atom_or_local_list =
     with OpamPinCommand.Aborted ->
       OpamStd.Sys.exit_because `Aborted
   in
+  if OpamClientConfig.(!r.working_dir && not !r.inplace_build) then
+    ignore @@
+    OpamPinCommand.fetch_all_pins st ~working_dir:true
+      already_pinned_diff_url;
   let st =
     if OpamClientConfig.(!r.ignore_pin_depends) then st else
     OpamPackage.Set.fold (fun nv st ->