Allow the test suite to pass in a directory whose name contains spaces

diff --git a/perl/Git.pm b/perl/Git.pm
index 3179e6efb29a1a88df8f90aa458fbe5f9a41d419..f4b56e6d4d38cbc4365ecfc9073f5caf3a05377a 100644 (file)
--- a/perl/Git.pm
+++ b/perl/Git.pm
@@ -1493,8 +1493,8 @@ sub prefix_lines {
                                        $_ = $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;
                }