From ba1bf00ce758a82565f2905873e5450d080a91e8 Mon Sep 17 00:00:00 2001
From: Ralph Lange <ralph.lange@gmx.de>
Date: Sun, 19 Nov 2023 15:47:58 +0100
Subject: [PATCH] Use split() for fetching last tag with darcs

(setting $/='' breaks reading multi-line into an array)
---
 src/tools/genVersionHeader.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/tools/genVersionHeader.pl b/src/tools/genVersionHeader.pl
index a1950392c..1bffb3699 100644
--- a/src/tools/genVersionHeader.pl
+++ b/src/tools/genVersionHeader.pl
@@ -55,7 +55,7 @@ if (-d '_darcs') { # Darcs
     # v1-4-dirty
     # is tag 'v1' plus 4 patches
     # with uncommited modifications
-    my @tags = `darcs show tags`;
+    my @tags = split('\n', `darcs show tags`);
     my $count = `darcs changes --count --from-tag .` - 1;
     my $result = $tags[0] . '-' . $count;
     print "== darcs show tags, changes:\n$result\n==\n" if $opt_v;