travis-ci: record and skip successfully built trees

diff --git a/perl/Git.pm b/perl/Git.pm
index cf7a7e6a516c4a2802908dd8ce7971fc52bb7e30..f4b56e6d4d38cbc4365ecfc9073f5caf3a05377a 100644 (file)
--- a/perl/Git.pm
+++ b/perl/Git.pm
@@ -1461,6 +1461,7 @@ sub prefix_lines {
 
 {
        my %cquote_map = (
+               "a" => chr(7),
                "b" => chr(8),
                "t" => chr(9),
                "n" => chr(10),
@@ -1487,13 +1488,13 @@ sub prefix_lines {
                                        $_ = $2;
                                        last;
                                }
-                               if (/^([\\\042btnvfr])(.*)$/) {
+                               if (/^([\\\042abtnvfr])(.*)$/) {
                                        $retval .= $cquote_map{$1};
                                        $_ = $2;
                                        last;
                                }
-                               # This is malformed -- just return it as-is for now.
-                               return $_[0];
+                               # This is malformed
+                               throw Error::Simple("invalid quoted path $_[0]");
                        }
                        $_ = $remainder;
                }