Update bundled git and improve tests

Author: linhay

.gitignore

@@ -5,3 +5,4 @@
 xcuserdata/
 DerivedData/
 .swiftpm/xcode/package.xcworkspace/contents.xcworkspacedata
+/tools/git-bundle/

README.md

@@ -98,6 +98,8 @@ Embedded git bundle
 
 - `GitEnvironment` will prefer the embedded instance when `Style.embed` is selected or when `Style.auto` finds it.
 - Agents and tests should not modify files under the bundle. Use `GitEnvironment.Style.custom(URL)` to point to an alternate git distribution.
+- To generate an updated bundle, run `tools/update-git-bundle.sh`. It writes to `tools/git-bundle/git-instance.bundle` by default.
+- Review the generated bundle and replace `Sources/SwiftGit/Resource/git-instance.bundle` if needed.
 
 Tests and integration tests
 - Tests live under `Tests/SwiftGitTests/`.

Sources/SwiftGit/Custom/commands/git-commands-status.swift

@@ -238,7 +238,7 @@ public extension StatusOptions {
      */
     /// ignore changes to submodules, optional when: all, dirty, untracked. (Default: all)
     static func ignoreSubmodules(_ when: IgnoreSubmodules) -> StatusOptions {
-        .init(stringLiteral: "--ignored=\(when.rawValue)")
+        .init(stringLiteral: "--ignore-submodules=\(when.rawValue)")
     }
 
     /**

Sources/SwiftGit/Resource/git-instance.bundle/bin/git

@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-use lib (split(/:/, $ENV{GITPERLLIB} || '/usr/local/git/share/perl5'));
+use lib (split(/:/, $ENV{GITPERLLIB} || '/var/folders/rk/yj_4tlx92sz7t5k73kxppyl80000gn/T//git-bundle.liZNhZ/stage/share/perl5'));
 
 ####
 #### This application is a CVS emulation layer for git.
@@ -17,7 +17,7 @@ use lib (split(/:/, $ENV{GITPERLLIB} || '/usr/local/git/share/perl5'));
 ####
 ####
 
-use 5.008001;
+require v5.26;
 use strict;
 use warnings;
 use bytes;
@@ -28,7 +28,7 @@ use File::Path qw/rmtree/;
 use File::Basename;
 use Getopt::Long qw(:config require_order no_ignore_case);
 
-my $VERSION = '2.45.2';
+my $VERSION = '2.53.0';
 
 my $log = GITCVS::log->new();
 my $cfg;
@@ -4988,13 +4988,13 @@ sub gethistorydense
     return $result;
 }
 
-=head2 escapeRefName
+=head2 unescapeRefName
 
-Apply an escape mechanism to compensate for characters that
+Undo an escape mechanism to compensate for characters that
 git ref names can have that CVS tags can not.
 
 =cut
-sub escapeRefName
+sub unescapeRefName
 {
     my($self,$refName)=@_;
 
@@ -5011,27 +5011,6 @@ sub escapeRefName
     #   = "_-xx-" Where "xx" is the hexadecimal representation of the
     #     desired ASCII character byte. (for anything else)
 
-    if(! $refName=~/^[1-9][0-9]*(\.[1-9][0-9]*)*$/)
-    {
-        $refName=~s/_-/_-u--/g;
-        $refName=~s/\./_-p-/g;
-        $refName=~s%/%_-s-%g;
-        $refName=~s/[^-_a-zA-Z0-9]/sprintf("_-%02x-",$1)/eg;
-    }
-}
-
-=head2 unescapeRefName
-
-Undo an escape mechanism to compensate for characters that
-git ref names can have that CVS tags can not.
-
-=cut
-sub unescapeRefName
-{
-    my($self,$refName)=@_;
-
-    # see escapeRefName() for description of escape mechanism.
-
     $refName=~s/_-([spu]|[0-9a-f][0-9a-f])-/unescapeRefNameChar($1)/eg;
 
     # allowed tag names