t6013: replace use of 'tac' with equivalent Perl

diff --git a/compat/mingw.h b/compat/mingw.h
index 8ffec51e73f49a54d82dd40f1e301e9c5479ffcf..290a9e6f822df97984b9f769508aab36419eaf02 100644 (file)
--- a/compat/mingw.h
+++ b/compat/mingw.h
@@ -223,3 +223,15 @@ void mingw_open_html(const char *path);
 char **copy_environ(void);
 void free_environ(char **env);
 char **env_setenv(char **env, const char *name);
+
+/*
+ * A replacement of main() that ensures that argv[0] has a path
+ */
+
+#define main(c,v) main(int argc, const char **argv) \
+{ \
+       static int mingw_main(); \
+       argv[0] = xstrdup(_pgmptr); \
+       return mingw_main(argc, argv); \
+} \
+static int mingw_main(c,v)