ar: don't remove leading whitespaces in filename field

test:
  $ touch " test"
  $ touch "  test"
  $ ar r test.a " test" "  test"
  $ ar tv test.a
    rw-rw-r-- 1000/1001	 0 Sep 18 14:58 2019  test
    rw-rw-r-- 1000/1001	 0 Sep 18 14:58 2019   test
  $ engrampa test.a

1 files changed, 6 insertions, 6 deletions

diff --git a/src/fr-command-ar.c b/src/fr-command-ar.c
index e1397be..af767ca 100644
--- a/src/fr-command-ar.c
+++ b/src/fr-command-ar.c
@@ -102,15 +102,15 @@ ar_get_last_field (const char *line,
 	while ((field_n > 0) && (*f_end != 0)) {
 		if (*f_end == ' ') {
 			field_n--;
-			if (field_n != 0) {
-				while ((*f_end == ' ') && (*f_end != *line))
-					f_end++;
+			if (field_n == 1)
 				f_start = f_end;
-			}
-		} else
-			f_end++;
+		}
+		f_end++;
 	}
 
+	if (*f_start == ' ')
+		f_start++;
+
 	return g_strdup (f_start);
 }