From e325a2514becd5bb4f3d9baf642c30dae898cd48 Mon Sep 17 00:00:00 2001
From: Fridolin Somers <fridolin.somers@biblibre.com>
Date: Sat, 28 Oct 2023 11:04:35 -1000
Subject: [PATCH] Revert "Bug 34959: Remove unused sub"

This reverts commit 01af59c6fc95bf6b90d8619514227a336820ab96.
---
 misc/translator/xgettext.pl | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/misc/translator/xgettext.pl b/misc/translator/xgettext.pl
index b5bd96d34f..9eec03646a 100755
--- a/misc/translator/xgettext.pl
+++ b/misc/translator/xgettext.pl
@@ -158,6 +158,15 @@ sub text_extract {
 
 ###############################################################################
 
+sub generate_strings_list {
+    # Emit all extracted strings.
+    for my $t (string_list) {
+        printf $OUTPUT "%s\n", $t;
+    }
+}
+
+###############################################################################
+
 sub generate_po_file {
     # We don't emit the Plural-Forms header; it's meaningless for us
     my $pot_charset = (defined $charset_out? $charset_out: 'CHARSET');
-- 
2.20.1