util (ble/util/writearray): fix a bug in use of gensub in gawk

Author: akinomyoga

docs/ChangeLog.md

@@ -180,6 +180,7 @@
   - util (`ble/string#quote-words`): correct the comparison operator (fixup 8bea90d1) (contributed by anoriqq)
 - syntax: fix a bug that the completion does not start with `<<[TAB]` `#D2354` 94109ea7
 - syntax: fix infinite loop with `case a in \^J` `#D2361` xxxxxxxx
+- util (`ble/util/writearray`): fix a bug in use of gensub in gawk (reported by allenap, LeonardoMor, aaronjamt, ionesculiviucristian, Gabryx64) `#D2368`
 
 ## Compatibility
 

lib/test-util.sh

@@ -2,7 +2,7 @@
 
 ble-import lib/core-test
 
-ble/test/start-section 'ble/util' 1274
+ble/test/start-section 'ble/util' 1275
 
 # bleopt
 
@@ -1353,6 +1353,9 @@ function is-global { (builtin readonly "$1"; ! local "$1" 2>/dev/null); }
       fi
     done
   done
+
+  a=(1 2 3)
+  ble/test 'ble/util/writearray --nlfix a' stdout:$'1\n2\n3'
 )
 
 # ble/is-function

note.txt

@@ -7852,6 +7852,15 @@ bash_tips
     Done (実装ログ)
 -------------------------------------------------------------------------------
 
+2025-07-15
+
+  * BUG in ble/util/writearray with gawk (reported by allenap, LeonardoMor, aaronjamt, ionesculiviucristian, Gabryx64) [#D2368]
+    https://github.com/akinomyoga/ble.sh/issues/603
+
+    単純に gawk 用の awk スクリプトにミスがあった。今まで発現していなかったのが
+    不思議だ。後、エラーが起こった時に何も出力がないのではなく、代わりにそのま
+    ま内容を出力してしまうのも不思議だ。取り敢えず修正した。
+
 2025-07-02
 
   * main: --lib オプションの説明が --help の中になかった [#D2367]

src/util.sh

@@ -2182,7 +2182,7 @@ function ble/util/writearray {
         if (IS_GAWK) {
           decl = gensub(/\[[0-9]+\]="(([^"\\]|\\.)*)" ?/, "\\1\001", "g", decl);
           sub(/\001$/, "", decl);
-          decl = gensub(/\\([\\$"`])/, "\\1", decl);
+          decl = gensub(/\\([\\$"`])/, "\\1", "g", decl);
         } else {
           # Convert to a ^A-separated list
           gsub(/\[[0-9]+\]="([^"\\]|\\.)*" /, "&\001", decl);