From 1e1799c30e8b9d2508205e38689388c5ce2cc8b4 Mon Sep 17 00:00:00 2001
From: Ralph Lange <ralph.lange@gmx.de>
Date: Mon, 18 Apr 2016 09:56:41 +0200
Subject: [PATCH] tools: change RE to allow any value for promptgroup in the
 Perl DBD parser

---
 src/tools/DBD/Recfield.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/tools/DBD/Recfield.pm b/src/tools/DBD/Recfield.pm
index 6dbf1696f..8bc439346 100644
--- a/src/tools/DBD/Recfield.pm
+++ b/src/tools/DBD/Recfield.pm
@@ -27,7 +27,7 @@ our %field_types = (
 our %field_attrs = (
     asl         => qr/^ASL[01]$/,
     initial     => qr/^.*$/,
-    promptgroup => qr/^GUI_\w+$/,
+    promptgroup => qr/^.*$/,
     prompt      => qr/^.*$/,
     special     => qr/^(?:SPC_\w+|\d{3,})$/,
     pp          => qr/^(?:TRUE|FALSE)$/,