Add --keep option to keep downloaded packs to git-fetch.

Signed-off-by: Tom Prince <tom.prince@ualberta.net>
Signed-off-by: Junio C Hamano <junkio@cox.net>

diff --git a/Documentation/fetch-options.txt b/Documentation/fetch-options.txt
index 1fe8423b94739e16f2ad8ec4b07ed45a2e6b964a..e624d3d0ee93c5d1618bf220ecd2d4eafddc47ca 100644 (file)
--- a/Documentation/fetch-options.txt
+++ b/Documentation/fetch-options.txt
@@ -24,6 +24,9 @@
        flag lets all tags and their associated objects be
        downloaded.
 
        flag lets all tags and their associated objects be
        downloaded.
 

+-k, \--keep::
+       Keep downloaded pack.
+

 -u, \--update-head-ok::
        By default `git-fetch` refuses to update the head which
        corresponds to the current branch.  This flag disables the
 -u, \--update-head-ok::
        By default `git-fetch` refuses to update the head which
        corresponds to the current branch.  This flag disables the

diff --git a/git-fetch.sh b/git-fetch.sh
index 73e57bd784c37b950219819fb2e025da8933aab6..4a0cb32f308742faf0f1ab4d023025ab3602ad31 100755 (executable)
--- a/git-fetch.sh
+++ b/git-fetch.sh
@@ -40,6 +40,9 @@ do
        -v|--verbose)
                verbose=Yes
                ;;
        -v|--verbose)
                verbose=Yes
                ;;

+       -k|--k|--ke|--kee|--keep)
+               keep=--keep
+               ;;

        -*)
                usage
                ;;
        -*)
                usage
                ;;


@@ -309,7 +312,7 @@ fetch_main () {
     ( : subshell because we muck with IFS
       IFS="    $LF"
       (
     ( : subshell because we muck with IFS
       IFS="    $LF"
       (

-         git-fetch-pack "$remote" $rref || echo failed "$remote"
+         git-fetch-pack $keep "$remote" $rref || echo failed "$remote"

       ) |
       while read sha1 remote_name
       do
       ) |
       while read sha1 remote_name
       do