[PATCH 2/5] Git::unquote_path() Handle '\a'

[Phillip Wood]

From: Phillip Wood <phillip.w...@dunelm.org.uk>

The version copied from git-add--interactive did not handle quoted
paths containing '\a'.

Signed-off-by: Phillip Wood <phillip.w...@dunelm.org.uk>
---
 perl/Git.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/perl/Git.pm b/perl/Git.pm
index 
8afde87fc8162271ba178e0fff3e921f070ac621..889bf88cfcd34136e24e166fb3b72cced6debf9d
 100644
--- a/perl/Git.pm
+++ b/perl/Git.pm
@@ -1461,6 +1461,7 @@ when not using -z
 
 {
        my %unquote_map = (
+               "a" => chr(7),
                "b" => chr(8),
                "t" => chr(9),
                "n" => chr(10),
@@ -1487,7 +1488,7 @@ when not using -z
                                        $_ = $2;
                                        last;
                                }
-                               if (/^([\\\042btnvfr])(.*)$/) {
+                               if (/^([\\\042abtnvfr])(.*)$/) {
                                        $retval .= $unquote_map{$1};
                                        $_ = $2;
                                        last;
-- 
2.13.0